master 5536893: test/lisp/replace-tests.el: Add nested match group test

[Lars Ingebrigtsen]

branch: master
commit 5536893c6e629d9541c75a1b0b239eaa96c6eaeb
Author: Nick Drozd <nicholasdrozd@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    test/lisp/replace-tests.el: Add nested match group test
    
    * test/lisp/replace-tests.el (replace-regexp-bug45973): Add test
    (bug#45973).
---
 test/lisp/replace-tests.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test/lisp/replace-tests.el b/test/lisp/replace-tests.el
index 8c2682a..2db570c 100644
--- a/test/lisp/replace-tests.el
+++ b/test/lisp/replace-tests.el
@@ -587,5 +587,18 @@ bound to HIGHLIGHT-LOCUS."
                               (get-text-property (point) 'occur-target))
           (should (funcall check-overlays has-overlay)))))))
 
+(ert-deftest replace-regexp-bug45973 ()
+  "Test for https://debbugs.gnu.org/45973 ."
+  (let ((before "1RB 1LC 1RC 1RB 1RD 0LE 1LA 1LD 1RH 0LA")
+        (after  "1LB 1RC 1LC 1LB 1LD 0RE 1RA 1RD 1LH 0RA"))
+    (with-temp-buffer
+      (insert before)
+      (goto-char (point-min))
+      (replace-regexp
+       "\\(\\(L\\)\\|\\(R\\)\\)"
+       '(replace-eval-replacement
+         replace-quote
+         (if (match-string 2) "R" "L")))
+      (should (equal (buffer-string) after)))))
 
 ;;; replace-tests.el ends here