diff options
| author | Andy Wingo <wingo@pobox.com> | 2021-03-16 21:55:22 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2021-03-16 21:55:22 +0100 |
| commit | 9e32c5729ec995585e2953a2c7b0019ba1f44197 (patch) | |
| tree | 678204793876c1ffecc422befa817c5b8b451cc1 | |
| parent | 72bf9d93ca63d8866cd7f4167469c2d5a5c91c2b (diff) | |
| download | guile-9e32c5729ec995585e2953a2c7b0019ba1f44197.tar.gz | |
Fix recent i18n tests
* test-suite/tests/i18n.test ("text collation (French)"): Fix to
actually pass locale arg.
| -rw-r--r-- | test-suite/tests/i18n.test | 6 |
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 |