[Guile-commits] 01/05: i18n: Add new collation test for posterity.

[Ludovic Courtès]

civodul pushed a commit to branch stable-2.0
in repository guile.

commit 67a5377fd8d0717131ad4dde5f1ed9382c13818b
Author: Ludovic Courtès <address@hidden>
Date:   Thu Oct 29 23:17:51 2015 +0100

    i18n: Add new collation test for posterity.
    
    * test-suite/tests/i18n.test ("text collation (Czech)"): New test
      prefix.
---
 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 c63e3ac..73502a0 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"