mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix recent i18n tests

Browse source 
* test-suite/tests/i18n.test ("text collation (French)"): Fix to
actually pass locale arg.
This commit is contained in:
Andy Wingo 2021-03-16 21:55:22 +01:00
parent 72bf9d93ca
commit 9e32c5729e
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/tests/i18n.test
View file

@ -226,14 +226,16 @@
(lambda () (lambda ()
(let* ((strings (list "œa" "œb")) (let* ((strings (list "œa" "œb"))
(heads (map (lambda (s) (substring/shared s 0 1)) strings))) (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" (pass-if "string-locale-ci=?, bis"
(under-french-utf8-locale-or-unresolved (under-french-utf8-locale-or-unresolved
(lambda () (lambda ()
(let* ((strings (list "œa" "œb")) (let* ((strings (list "œa" "œb"))
(heads (map (lambda (s) (substring/shared s 0 1)) strings))) (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)" (pass-if "string-locale-ci=? (3 args, wide strings)"
(under-french-utf8-locale-or-unresolved (under-french-utf8-locale-or-unresolved