[elpa] externals/compat 75d0b8527f: compat-tests: Check that `string-search' preserves the `match-data'

[ELPA Syncer]

branch: externals/compat
commit 75d0b8527f51aae42d23eee4aeb263e19055747e
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-tests: Check that `string-search' preserves the `match-data'
    
    See @phikal's mail on emacs-devel:
    
    https://lists.gnu.org/archive/html/emacs-devel/2023-08/msg00325.html
---
 compat-tests.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compat-tests.el b/compat-tests.el
index 02fa536d22..1e902fb781 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -2136,7 +2136,12 @@
     ;; backport this behaviour.
     (should-equal 2 (string-search (compat-tests--string-to-multibyte "\377") 
"ab\377c"))
     (should-equal 2 (string-search (compat-tests--string-to-multibyte 
"o\303\270")
-                                   "foo\303\270"))))
+                                   "foo\303\270")))
+  ;; Ensure that `match-data' is preserved by `string-search'
+  (string-match (rx (* "a") (group (* "b")) (* "a")) "abba")
+  (should-equal '(0 4 1 3) (match-data))
+  (should (string-search "foo" "foobar"))
+  (should-equal '(0 4 1 3) (match-data)))
 
 (ert-deftest compat-string-replace ()
   (should-equal "bba" (string-replace "aa" "bb" "aaa"))