branch: externals/compat
commit b962db5a240a543132d02822f5c6f56da0e4b483
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Test string-equal-ignore-case
---
compat-29.el | 2 +-
compat-tests.el | 7 +++++++
2 files changed, 8 insertions(+), 1 deletion(-)
diff --git a/compat-29.el b/compat-29.el
index 48470d49f7..3d16539290 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -99,7 +99,7 @@ If N is greater or equal to the length of LIST, return LIST
(or a copy)."
(setq n (1- n)))
(nreverse copy)))
-(compat-defun string-equal-ignore-case (string1 string2) ;; <UNTESTED>
+(compat-defun string-equal-ignore-case (string1 string2) ;; <OK>
"Like `string-equal', but case-insensitive.
Upper-case and lower-case letters are treated as equal.
Unibyte strings are converted to multibyte for comparison."
diff --git a/compat-tests.el b/compat-tests.el
index 77833e5d57..64eca34ed3 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -870,6 +870,13 @@
(should-equal '[1 2 3] (compat-call sort '[1 2 3] #'<))
(should-equal '[1 2 3] (compat-call sort '[3 2 1] #'<)))
+(ert-deftest string-equal-ignore-case ()
+ (should (string-equal-ignore-case "abc" "abc"))
+ (should (string-equal-ignore-case "abc" "ABC"))
+ (should (string-equal-ignore-case "abc" "abC"))
+ (should-not (string-equal-ignore-case "abc" "abCD"))
+ (should (string-equal-ignore-case "S" "s")))
+
(ert-deftest string-greaterp ()
(should (string-greaterp "b" "a"))
(should-not (string-greaterp "a" "b"))
