From 72e9ec96d0e68f57d5b357595e6dfb76114d8506 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Mattias=20Engdeg=C3=A5rd?= Date: Sun, 27 Sep 2020 13:32:27 +0200 Subject: [PATCH] ; * test/lisp/subr-tests.el (string-replace): Add more test cases --- test/lisp/subr-tests.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 42dcf382e40..035c064d75c 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -468,6 +468,19 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350." "axb")) (should (equal (string-replace "\377" "x" "a\377ø") "axø")) + (should (equal (string-replace (string-to-multibyte "\377") "x" "a\377b") + "axb")) + (should (equal (string-replace (string-to-multibyte "\377") "x" "a\377ø") + "axø")) + + (should (equal (string-replace "ana" "ANA" "ananas") "ANAnas")) + + (should (equal (string-replace "a" "" "") "")) + (should (equal (string-replace "a" "" "aaaaa") "")) + (should (equal (string-replace "ab" "" "ababab") "")) + (should (equal (string-replace "ab" "" "abcabcabc") "ccc")) + (should (equal (string-replace "a" "aa" "aaa") "aaaaaa")) + (should (equal (string-replace "abc" "defg" "abc") "defg")) (should-error (string-replace "" "x" "abc"))) -- 2.39.5