mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

in command line encoding test don't presume extant UTF-8 locale

Browse source 
* test-suite/standalone/test-command-line-encoding: abort if
    locale is not UTF-8
This commit is contained in:
Michael Gran 2020-11-23 19:21:25 -08:00
parent efb37b954e
commit 0d80eb23e2
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/standalone/test-command-line-encoding
View file

@ -16,7 +16,10 @@ exec guile -q -s "$0" "λ"
;; according to the locale settings; see
;; <http://lists.gnu.org/archive/html/guile-devel/2011-11/msg00026.html> for
;; details.
(exit (string=? (cadr (program-arguments)) "λ"))
(if (string-contains-ci (setlocale LC_ALL) "utf")
(exit (string=? (cadr (program-arguments)) "λ"))
;; If we can't install a UTF-8 locale, skip the test
(exit 77))
;; Local Variables:
;; mode: scheme