mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

i18n: Add new collation test for posterity.

Browse source 
* test-suite/tests/i18n.test ("text collation (Czech)"): New test
  prefix.
This commit is contained in:
Ludovic Courtès 2015-10-29 23:17:51 +01:00 • committed by Andy Wingo
parent 0bcf5d78ec
commit 2e3f6c3c67
1 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +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, ;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012,
;;;; 2013, 2014 Free Software Foundation, Inc. ;;;; 2013, 2014, 2015 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
@ -270,6 +270,23 @@
(let ((gr (make-locale LC_ALL %greek-utf8-locale-name))) (let ((gr (make-locale LC_ALL %greek-utf8-locale-name)))
(string-locale-ci=? "ΧΑΟΣ" "χαος" gr)))))) (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" (with-test-prefix "character mapping"