; * test/lisp/subr-tests.el (string-comparison-test): Add more tests.

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 6df4a469326dafeb5009f3ed4a1fc448aaac63b1..be613ce7595b46ba6663098c55b66fbe3a60222c 100644 (file)
--- 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" "ẞ"))