[Guile-commits] 01/02: Adapt test for string-locale-ci=?

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 8a8727db5cffb10883a837eea3b7737abdd58188
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Mon Mar 15 21:59:15 2021 +0100

    Adapt test for string-locale-ci=?
    
    * test-suite/tests/i18n.test ("text collation (French)"): Punt on
    collating if utf8 locale unavailable.
---
 test-suite/tests/i18n.test | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index f288da0..6abd00f 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -74,11 +74,6 @@
          (string-locale-ci=? "Hello" "HELLO"
                              (make-locale (list LC_COLLATE) "C"))))
 
-  (pass-if "string-locale-ci=?, bis"
-    (let* ((strings (list "⇒a" "⇒b"))
-           (heads (map (lambda (s) (substring/shared s 0 1)) strings)))
-      (apply string-locale-ci=? heads)))
-
   (pass-if "string-locale-ci<?"
     (and (string-locale-ci<? "hello" "WORLD")
          (string-locale-ci<? "hello" "WORLD"
@@ -226,6 +221,13 @@
           (lambda ()
             (setlocale LC_ALL "C"))))))
 
+  (pass-if "string-locale-ci=?, bis"
+    (under-french-utf8-locale-or-unresolved
+     (lambda ()
+       (let* ((strings (list "œa" "œb"))
+              (heads (map (lambda (s) (substring/shared s 0 1)) strings)))
+         (apply string-locale-ci=? heads)))))
+
   (pass-if "string-locale-ci=? (3 args, wide strings)"
     (under-french-utf8-locale-or-unresolved
       (lambda ()