mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-21 08:35:58 +02:00
system: Define 'GUIX_LOCPATH' to work around 'glibc' package defect.
Our 'glibc' package currently ignores /run/current-system/locale, although the intent is to look for locales in that directory. * gnu/packages/base.scm (glibc/linux): Add comment about /run/current-system/locale being ignored. * gnu/system.scm (operating-system-environment-variables): Add 'GUIX_LOCPATH'. * gnu/tests/base.scm (run-basic-test): Add "locale" test.
This commit is contained in:
@@ -178,6 +178,18 @@ info --version")
|
||||
'(false-if-exception (getaddrinfo "does-not-exist"))
|
||||
marionette))
|
||||
|
||||
(test-equal "locale"
|
||||
"en_US.utf8"
|
||||
(marionette-eval '(begin
|
||||
;; XXX: This 'setenv' call wouldn't be needed
|
||||
;; but our glibc@2.23 currently ignores
|
||||
;; /run/current-system/locale.
|
||||
(setenv "GUIX_LOCPATH"
|
||||
"/run/current-system/locale")
|
||||
(let ((before (setlocale LC_ALL "en_US.utf8")))
|
||||
(setlocale LC_ALL before)))
|
||||
marionette))
|
||||
|
||||
(test-assert "screendump"
|
||||
(begin
|
||||
(marionette-control (string-append "screendump " #$output
|
||||
|
||||
Reference in New Issue
Block a user