summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-10-29 23:17:51 +0100
committerAndy Wingo <wingo@pobox.com>2016-05-22 19:49:44 +0200
commit2e3f6c3c678b28a839d6c751db5bc4c50a956c8e (patch)
treec8791d6a6b0aa126f1677bbefa6af06c1995ca0c
parent0bcf5d78ecb40871fb48cf0f1a6065be38a3a14b (diff)
downloadguile-2e3f6c3c678b28a839d6c751db5bc4c50a956c8e.tar.gz
i18n: Add new collation test for posterity.
* test-suite/tests/i18n.test ("text collation (Czech)"): New test prefix.
-rw-r--r--test-suite/tests/i18n.test19
1 files changed, 18 insertions, 1 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test
index c63e3ac5b..73502a01e 100644
--- a/test-suite/tests/i18n.test
+++ b/test-suite/tests/i18n.test
@@ -1,7 +1,7 @@
;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*-
;;;;
;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012,
-;;;; 2013, 2014 Free Software Foundation, Inc.
+;;;; 2013, 2014, 2015 Free Software Foundation, Inc.
;;;; Ludovic Courtès
;;;;
;;;; This library is free software; you can redistribute it and/or
@@ -271,6 +271,23 @@
(string-locale-ci=? "ΧΑΟΣ" "χαος" gr))))))
+(with-test-prefix "text collation (Czech)"
+
+ (pass-if "string-locale<? for 'ch'"
+ (under-locale-or-unresolved
+ "cs_CZ.utf8"
+ (lambda ()
+ ;; Czech sorts digraph 'ch' between 'h' and 'i'.
+ ;;
+ ;; GNU libc 2.22 gets this wrong:
+ ;; <https://sourceware.org/bugzilla/show_bug.cgi?id=18589>. For
+ ;; now, just skip it if it fails (XXX).
+ (or (and (string-locale>? "chxxx" "cxxx")
+ (string-locale>? "chxxx" "hxxx")
+ (string-locale<? "chxxxx" "ixxx"))
+ (throw 'unresolved))))))
+
+
(with-test-prefix "character mapping"
(pass-if "char-locale-downcase"