[Guile-commits] 01/01: Disable Turkish locale tests on Cygwin

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit efd6e3f40c0cd2b9b5b8f947fc1ac2aeefcdf85f
Author: Mike Gran <address@hidden>
Date:   Sat Mar 4 16:42:32 2017 -0800

    Disable Turkish locale tests on Cygwin
    
    Cygwin's support of Turkish casing rules is broken.
    
    * test-suite/tests/i18n.test (under-turkish-utf8-locale-or-unresolved): 
modified
---
 test-suite/tests/i18n.test | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index 0475c3b..b48f20f 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -164,14 +164,15 @@
   (under-locale-or-unresolved %french-utf8-locale thunk))
 
 (define (under-turkish-utf8-locale-or-unresolved thunk)
-  ;; FreeBSD 8.2 and 9.1, Solaris 2.10, Darwin 8.11.0, and MinGW have
+  ;; FreeBSD 8.2 and 9.1, Solaris 2.10, Darwin 8.11.0, Cygwin, and MinGW have
   ;; a broken tr_TR locale where `i' is mapped to uppercase `I'
   ;; instead of `İ', so disable tests on that platform.
   (if (or (string-contains %host-type "freebsd8")
           (string-contains %host-type "freebsd9")
           (string-contains %host-type "solaris2.10")
           (string-contains %host-type "darwin8")
-          (string-contains %host-type "mingw32"))
+          (string-contains %host-type "mingw32")
+          (string-contains %host-type "cygwin"))
       (throw 'unresolved)
       (under-locale-or-unresolved %turkish-utf8-locale thunk)))