mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source 
* test/lisp/replace-tests.el (replace-regexp-bug45973): Add test
(bug#45973).
This commit is contained in:
Nick Drozd 2021-01-20 02:46:17 +01:00 committed by Lars Ingebrigtsen
parent 8ed97a8d54
commit 5536893c6e
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
test/lisp/replace-tests.el
View File

@ -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