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 "ǲ" "Ǳ"))
+  (should (string-equal-ignore-case "Όσος" "ΌΣΟΣ"))
  ;; not yet: (should (string-equal-ignore-case "SS" "ß"))
  ;; not yet: (should (string-equal-ignore-case "SS" "ẞ"))

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 @@
374	(should-not (string-equal-ignore-case "abc" "abCD"))	374	(should-not (string-equal-ignore-case "abc" "abCD"))
375	(should (string-equal-ignore-case "S" "s"))	375	(should (string-equal-ignore-case "S" "s"))
376	(should (string-equal-ignore-case "ẞ" "ß"))	376	(should (string-equal-ignore-case "ẞ" "ß"))
		377	(should (string-equal-ignore-case "ǲ" "Ǳ"))
		378	(should (string-equal-ignore-case "Όσος" "ΌΣΟΣ"))
377	;; not yet: (should (string-equal-ignore-case "SS" "ß"))	379	;; not yet: (should (string-equal-ignore-case "SS" "ß"))
378	;; not yet: (should (string-equal-ignore-case "SS" "ẞ"))	380	;; not yet: (should (string-equal-ignore-case "SS" "ẞ"))
379		381