mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

tests: Work around erroneous tr_TR locale in Darwin 8.

Browse source 
* test-suite/tests/i18n.test (under-turkish-utf8-locale-or-unresolved):
  Add exception for Darwin 8.  Reported by David Fang <fang@csl.cornell.edu>,
  see <http://bugs.gnu.org/10684>.
This commit is contained in:
Ludovic Courtès 2012-02-03 10:17:12 +01:00
parent ec97a06f86
commit 6f63f118ef
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -138,11 +138,12 @@
(under-locale-or-unresolved %french-utf8-locale thunk)) (under-locale-or-unresolved %french-utf8-locale thunk))
(define (under-turkish-utf8-locale-or-unresolved thunk) (define (under-turkish-utf8-locale-or-unresolved thunk)
;; FreeBSD 8.2 and Solaris 2.10 have a broken tr_TR locale where `i' ;; FreeBSD 8.2, Solaris 2.10, and Darwin 8.11.0 have a broken tr_TR
;; is mapped to uppercase `I' instead of `İ', so disable tests on that ;; locale where `i' is mapped to uppercase `I' instead of `İ', so
;; platform. ;; disable tests on that platform.
(if (or (string-contains %host-type "freebsd8") (if (or (string-contains %host-type "freebsd8")
(string-contains %host-type "solaris2.10")) (string-contains %host-type "solaris2.10")
(string-contains %host-type "darwin8"))
(throw 'unresolved) (throw 'unresolved)
(under-locale-or-unresolved %turkish-utf8-locale thunk))) (under-locale-or-unresolved %turkish-utf8-locale thunk)))