summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-09 23:34:39 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-09 23:51:43 +0100
commitb0b727808b0b3466959b3f7143d35435834df0ee (patch)
treec56590f8c504a5448a4b491e98f5b309798147d3
parent1ae8237fc94d5f5a93ec7b5804d58ceda057f7e5 (diff)
downloadpatches-b0b727808b0b3466959b3f7143d35435834df0ee.tar
patches-b0b727808b0b3466959b3f7143d35435834df0ee.tar.gz
gnu: guile-ncurses: Run tests with a locale that's actually available.
* gnu/packages/guile.scm (guile-ncurses)[arguments]: Add 'change-locale' phase.
-rw-r--r--gnu/packages/guile.scm30
1 files changed, 19 insertions, 11 deletions
diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index ea18bdfdac..9fde9490c1 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