diff options
author | Ludovic Courtès <ludo@gnu.org> | 2015-10-29 23:17:51 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2016-05-22 19:49:44 +0200 |
commit | 2e3f6c3c678b28a839d6c751db5bc4c50a956c8e (patch) | |
tree | c8791d6a6b0aa126f1677bbefa6af06c1995ca0c | |
parent | 0bcf5d78ecb40871fb48cf0f1a6065be38a3a14b (diff) | |
download | guile-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.test | 19 |
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" |