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

Broken Turkish UTF-8 locale still unresolved in FreeBSD 9.1.

Browse source 
* test-suite/tests/i18n.test (under-turkish-utf8-locale-or-unresolved):
  Disable tests of Turkish UTF-8 locale in FreeBSD 9.1.
This commit is contained in:
Mark H Weaver 2013-08-11 22:38:49 -04:00
parent 6f82b8f623
commit 9ea816f54a
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,6 +1,7 @@
;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*- ;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*-
;;;; ;;;;
;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012,
;;;; 2013 Free Software Foundation, Inc.
;;;; Ludovic Courtès ;;;; Ludovic Courtès
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
@ -147,10 +148,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, Solaris 2.10, and Darwin 8.11.0 have a broken tr_TR ;; FreeBSD 8.2 and 9.1, Solaris 2.10, and Darwin 8.11.0 have a broken
;; locale where `i' is mapped to uppercase `I' instead of `İ', so ;; tr_TR locale where `i' is mapped to uppercase `I' instead of `İ',
;; disable tests on that platform. ;; so disable tests on that platform.
(if (or (string-contains %host-type "freebsd8") (if (or (string-contains %host-type "freebsd8")
(string-contains %host-type "freebsd9")
(string-contains %host-type "solaris2.10") (string-contains %host-type "solaris2.10")
(string-contains %host-type "darwin8")) (string-contains %host-type "darwin8"))
(throw 'unresolved) (throw 'unresolved)