summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2021-03-15 21:59:15 +0100
committerAndy Wingo <wingo@pobox.com>2021-03-15 21:59:15 +0100
commit8a8727db5cffb10883a837eea3b7737abdd58188 (patch)
tree2d3409d4bc7358cafbd264a363316b8983a26ef7
parentd87b57a00bb8f755fdca46d10c9d411d48efa1e9 (diff)
downloadguile-8a8727db5cffb10883a837eea3b7737abdd58188.tar.gz
Adapt test for string-locale-ci=?
* test-suite/tests/i18n.test ("text collation (French)"): Punt on collating if utf8 locale unavailable.
-rw-r--r--test-suite/tests/i18n.test12
1 files changed, 7 insertions, 5 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index f288da06d..6abd00fee 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 ()