diff options
| author | Eli Zaretskii | 2022-07-28 21:41:15 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2022-07-28 21:41:15 +0300 |
| commit | dc96fe5c101a4e1b0a332497c94c021bf7be4ce1 (patch) | |
| tree | f422bbedc31d01ab14f184023f7b523a9b6f1b94 | |
| parent | eeeb481750b5cec264af0f4ea5298cae011e5050 (diff) | |
| download | emacs-dc96fe5c101a4e1b0a332497c94c021bf7be4ce1.tar.gz emacs-dc96fe5c101a4e1b0a332497c94c021bf7be4ce1.zip | |
; * test/lisp/subr-tests.el (string-comparison-test): Add more tests.
| -rw-r--r-- | test/lisp/subr-tests.el | 2 |
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 @@ | |||
| 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 "Dz" "DZ")) | ||
| 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 | ||