05/06: gnu: guile-ncurses: Run tests with a locale that's actually available.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b0b727808b0b3466959b3f7143d35435834df0ee
Author: Ludovic Courtès <address@hidden>
Date:   Mon Mar 9 23:34:39 2015 +0100

    gnu: guile-ncurses: Run tests with a locale that's actually available.
    
    * gnu/packages/guile.scm (guile-ncurses)[arguments]: Add 'change-locale'
      phase.
---
 gnu/packages/guile.scm |   30 +++++++++++++++++++-----------
 1 files changed, 19 insertions(+), 11 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index ea18bdf..9fde949 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -237,17 +237,25 @@ many readers as needed).")
                                (string-append "--with-guilesitedir="
                                               (assoc-ref %outputs "out")
                                               "/share/guile/site/2.0"))
-       #:phases (alist-cons-after
-                 'install 'post-install
-                 (lambda* (#:key outputs #:allow-other-keys)
-                   (let* ((out   (assoc-ref outputs "out"))
-                          (dir   (string-append out "/share/guile/site/"))
-                          (files (find-files dir ".scm")))
-                    (substitute* files
-                      (("\"libguile-ncurses\"")
-                       (format #f "\"~a/lib/libguile-ncurses\""
-                               out)))))
-                 %standard-phases)))
+       #:phases (alist-cons-before
+                 'check 'change-locale
+                 (lambda _
+                   ;; Use the locale that's actually available in the build
+                   ;; environment.
+                   (substitute* "test/f009_form_wide.test"
+                     (("en_US\\.utf8")
+                      "en_US.UTF-8")))
+                 (alist-cons-after
+                  'install 'post-install
+                  (lambda* (#:key outputs #:allow-other-keys)
+                    (let* ((out   (assoc-ref outputs "out"))
+                           (dir   (string-append out "/share/guile/site/"))
+                           (files (find-files dir ".scm")))
+                      (substitute* files
+                        (("\"libguile-ncurses\"")
+                         (format #f "\"~a/lib/libguile-ncurses\""
+                                 out)))))
+                  %standard-phases))))
     (home-page "http://www.gnu.org/software/guile-ncurses/";)
     (synopsis "Guile bindings to ncurses")
     (description