summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xtest-suite/standalone/test-command-line-encoding5
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