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

Skip `tr_TR' tests on Solaris 2.10.

Browse source 
* test-suite/tests/i18n.test (under-turkish-utf8-locale-or-unresolved):
  Special-case Solaris 2.10.
This commit is contained in:
Ludovic Courtès 2012-01-16 21:09:21 +01:00
parent 1bd9a697b1
commit d143fac660
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -138,9 +138,11 @@
(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 has a broken tr_TR locale where `i' is mapped to ;; FreeBSD 8.2 and Solaris 2.10 have a broken tr_TR locale where `i'
;; uppercase `I' instead of `İ', so disable tests on that platform. ;; is mapped to uppercase `I' instead of `İ', so disable tests on that
(if (string-contains %host-type "freebsd8") ;; platform.
(if (or (string-contains %host-type "freebsd8")
(string-contains %host-type "solaris2.10"))
(throw 'unresolved) (throw 'unresolved)
(under-locale-or-unresolved %turkish-utf8-locale thunk))) (under-locale-or-unresolved %turkish-utf8-locale thunk)))