diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-15 21:59:15 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-15 21:59:15 +0100 |
commit | 8a8727db5cffb10883a837eea3b7737abdd58188 (patch) | |
tree | 2d3409d4bc7358cafbd264a363316b8983a26ef7 | |
parent | d87b57a00bb8f755fdca46d10c9d411d48efa1e9 (diff) | |
download | guile-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.test | 12 |
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 () |