diff options
| author | Michael Gran <spk121@yahoo.com> | 2020-11-23 19:21:25 -0800 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2021-01-21 15:32:33 -0800 |
| commit | 0d80eb23e231fb8114101bae1c50e8b5672e653e (patch) | |
| tree | 04d4073093992351975fe3b5bba37c02304e7aaf /test-suite/standalone | |
| parent | efb37b954e94da481beb72cbc2e0491f54231a98 (diff) | |
| download | guile-0d80eb23e231fb8114101bae1c50e8b5672e653e.tar.gz | |
in command line encoding test don't presume extant UTF-8 locale
* test-suite/standalone/test-command-line-encoding: abort if
locale is not UTF-8
Diffstat (limited to 'test-suite/standalone')
| -rwxr-xr-x | test-suite/standalone/test-command-line-encoding | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test-suite/standalone/test-command-line-encoding b/test-suite/standalone/test-command-line-encoding index 525c0aeed..401011deb 100755 --- a/test-suite/standalone/test-command-line-encoding +++ b/test-suite/standalone/test-command-line-encoding @@ -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 |