[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] branch master updated: Fix recent i18n tests
From: |
Andy Wingo |
Subject: |
[Guile-commits] branch master updated: Fix recent i18n tests |
Date: |
Tue, 16 Mar 2021 16:56:14 -0400 |
This is an automated email from the git hooks/post-receive script.
wingo pushed a commit to branch master
in repository guile.
The following commit(s) were added to refs/heads/master by this push:
new 9e32c57 Fix recent i18n tests
9e32c57 is described below
commit 9e32c5729ec995585e2953a2c7b0019ba1f44197
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Tue Mar 16 21:55:22 2021 +0100
Fix recent i18n tests
* test-suite/tests/i18n.test ("text collation (French)"): Fix to
actually pass locale arg.
---
test-suite/tests/i18n.test | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index a19b963..83b53d0 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] branch master updated: Fix recent i18n tests,
Andy Wingo <=