summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/i18n.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index a19b96336..83b53d017 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -226,14 +226,16 @@
(lambda ()
(let* ((strings (list "œa" "œb"))
(heads (map (lambda (s) (substring/shared s 0 1)) strings)))
- (not (apply string-locale<? heads))))))
+ (not (string-locale<? (car heads) (cadr heads)
+ %french-utf8-locale))))))
(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)))))
+ (string-locale-ci=? (car heads) (cadr heads)
+ %french-utf8-locale)))))
(pass-if "string-locale-ci=? (3 args, wide strings)"
(under-french-utf8-locale-or-unresolved