diff options
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/tests/i18n.test | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/test-suite/tests/i18n.test b/test-suite/tests/i18n.test index 427aef4f5..f288da06d 100644 --- a/test-suite/tests/i18n.test +++ b/test-suite/tests/i18n.test @@ -1,8 +1,7 @@ ;;;; i18n.test --- Exercise the i18n API. -*- coding: utf-8; mode: scheme; -*- ;;;; -;;;; Copyright (C) 2006, 2007, 2009, 2010, 2011, 2012, -;;;; 2013, 2014, 2015, 2016, 2017, 2018 Free Software Foundation, Inc. -;;;; Ludovic Courtès +;;;; Copyright (C) 2006-2007,2009-2019,2021 Free Software Foundation, Inc. +;;;; Author: Ludovic Courtès ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -75,6 +74,11 @@ (string-locale-ci=? "Hello" "HELLO" (make-locale (list LC_COLLATE) "C")))) + (pass-if "string-locale-ci=?, bis" + (let* ((strings (list "⇒a" "⇒b")) + (heads (map (lambda (s) (substring/shared s 0 1)) strings))) + (apply string-locale-ci=? heads))) + (pass-if "string-locale-ci<?" (and (string-locale-ci<? "hello" "WORLD") (string-locale-ci<? "hello" "WORLD" |