From b0b727808b0b3466959b3f7143d35435834df0ee Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 9 Mar 2015 23:34:39 +0100 Subject: 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 file changed, 19 insertions(+), 11 deletions(-) (limited to 'gnu/packages/guile.scm') 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 -- cgit v1.2.3