diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-09 23:34:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-09 23:51:43 +0100 |
| commit | b0b727808b0b3466959b3f7143d35435834df0ee (patch) | |
| tree | c56590f8c504a5448a4b491e98f5b309798147d3 | |
| parent | 1ae8237fc94d5f5a93ec7b5804d58ceda057f7e5 (diff) | |
| download | guix-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.scm | 30 |
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 |