diff options
-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 |