[Guile-commits] 05/06: test shouldn't presume UTF-8 can be installed

[Mike Gran]

mike121 pushed a commit to branch wip-mingw-guile-2.2
in repository guile.

commit 0863e3d2fb5063c1a190c72678a5a96571a9957e
Author: Michael Gran <address@hidden>
Date:   Wed Apr 18 06:25:54 2018 -0700

    test shouldn't presume UTF-8 can be installed
    
    Add a skip to test-command-line-encoding if a UTF-8 locale wasn't installed.
    
    * test/suite/standalone/test-command-line-encoding: modified
---
 test-suite/standalone/test-command-line-encoding | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/test-suite/standalone/test-command-line-encoding 
b/test-suite/standalone/test-command-line-encoding
index 525c0ae..8b1090d 100755
--- a/test-suite/standalone/test-command-line-encoding
+++ b/test-suite/standalone/test-command-line-encoding
@@ -16,7 +16,11 @@ 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