mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +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 ()
(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