diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 21:20:21 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-01-09 21:23:46 +0100 |
commit | 17cdda21810939443f29362355a334b6d2f174cf (patch) | |
tree | 8c46cd67deefa3f1e050141f030ca740bd42e8fa | |
parent | 002aab40bc19d5a4c7408b8d49658b438c8b59e0 (diff) | |
download | guile-17cdda21810939443f29362355a334b6d2f174cf.tar.gz |
i18n: Disable Turkish locale tests on FreeBSD 8.
* test-suite/tests/i18n.test (under-turkish-utf8-locale-or-unresolved):
Check %HOST-TYPE and throw `unresolved' on FreeBSD 8.
-rw-r--r-- | test-suite/tests/i18n.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test index a5e418f67..05670516d 100644 --- a/test-suite/tests/i18n.test +++ b/test-suite/tests/i18n.test @@ -1,6 +1,6 @@ ;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*- ;;;; -;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; Ludovic Courtès ;;;; ;;;; This library is free software; you can redistribute it and/or @@ -138,7 +138,11 @@ (under-locale-or-unresolved %french-utf8-locale thunk)) (define (under-turkish-utf8-locale-or-unresolved thunk) - (under-locale-or-unresolved %turkish-utf8-locale thunk)) + ;; FreeBSD 8.2 has a broken tr_TR locale where `i' is mapped to + ;; uppercase `I' instead of `İ', so disable tests on that platform. + (if (string-contains %host-type "freebsd8") + (throw 'unresolved) + (under-locale-or-unresolved %turkish-utf8-locale thunk))) (define (under-german-utf8-locale-or-unresolved thunk) (under-locale-or-unresolved %german-utf8-locale thunk)) |