summaryrefslogtreecommitdiff
path: root/test/lisp/subr-tests.el
diff options
context:
space:
mode:
authorEli Zaretskii <eliz@gnu.org>2022-07-28 21:41:15 +0300
committerEli Zaretskii <eliz@gnu.org>2022-07-28 21:41:15 +0300
commitdc96fe5c101a4e1b0a332497c94c021bf7be4ce1 (patch)
treef422bbedc31d01ab14f184023f7b523a9b6f1b94 /test/lisp/subr-tests.el
parenteeeb481750b5cec264af0f4ea5298cae011e5050 (diff)
downloademacs-dc96fe5c101a4e1b0a332497c94c021bf7be4ce1.tar.gz
emacs-dc96fe5c101a4e1b0a332497c94c021bf7be4ce1.tar.bz2
emacs-dc96fe5c101a4e1b0a332497c94c021bf7be4ce1.zip
; * test/lisp/subr-tests.el (string-comparison-test): Add more tests.
Diffstat (limited to 'test/lisp/subr-tests.el')
-rw-r--r--test/lisp/subr-tests.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 6df4a469326..be613ce7595 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -374,6 +374,8 @@
(should-not (string-equal-ignore-case "abc" "abCD"))
(should (string-equal-ignore-case "S" "s"))
(should (string-equal-ignore-case "ẞ" "ß"))
+ (should (string-equal-ignore-case "Dz" "DZ"))
+ (should (string-equal-ignore-case "Όσος" "ΌΣΟΣ"))
;; not yet: (should (string-equal-ignore-case "SS" "ß"))
;; not yet: (should (string-equal-ignore-case "SS" "ẞ"))