mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* test/lisp/replace-tests.el: New tests for query-replace (bug#54733)

Browse source 
* test/lisp/replace-tests.el (query-replace-tests): New defconst.
(query-replace--perform-tests): New function.
(query-replace-tests, query-replace-search-function-tests): New ert-deftest.
This commit is contained in:
Juri Linkov 2022-04-05 20:52:28 +03:00
parent fef5f9ef5f
commit ab9c28e01f
1 changed files with 66 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

66
test/lisp/replace-tests.el
View file

@ -405,6 +405,72 @@ Each element has the format:
(and (buffer-name temp-buffer)
(kill-buffer temp-buffer)))))
;;; General tests for `query-replace' and `query-replace-regexp'.
(defconst query-replace-tests
'(
;; query-replace
("aaa" "M-% a RET 1 RET !" "111")
("aaa" "M-% a RET 1 RET y n y" "1a1")
;; Empty inputs
("aaa" "M-% a RET RET !" "")
("aaa" "M-% RET 1 RET !" "1a1a1a")
;; Reuse the previous default
("aaa" "M-% a RET 1 RET . M-% RET !" "111")
;; query-replace-regexp
("aaa" "C-M-% a* RET 1 RET !" "1")
;; Empty inputs
("aaa" "C-M-% a* RET RET !" "")
("aaa" "C-M-% RET 1 RET !" "1a1a1a")
;; Empty matches
("aaa" "C-M-% b* RET 1 RET !" "1a1a1a")
;; Complete matches
("aaa" "C-M-% .* RET 1 RET !" "1")
;; Adjacent matches
("abaab" "C-M-% ab* RET 12 RET !" "121212")
))
(defun query-replace--perform-tests (tests)
(with-temp-buffer
(save-window-excursion
;; `execute-kbd-macro' is applied to window only
(set-window-buffer nil (current-buffer))
(dolist (case tests)
;; Ensure empty input means empty string to replace:
(setq query-replace-defaults nil)
(delete-region (point-min) (point-max))
(insert (nth 0 case))
(goto-char (point-min))
(execute-kbd-macro (kbd (nth 1 case)))
(should (equal (buffer-string) (nth 2 case)))))))
(ert-deftest query-replace-tests ()
(query-replace--perform-tests query-replace-tests))
(ert-deftest query-replace-search-function-tests ()
(let* ((replace-re-search-function #'re-search-forward))
(query-replace--perform-tests query-replace-tests))
(let* ((pairs '((1 . 2) (3 . 4)))
(replace-re-search-function
(lambda (string &optional _bound noerror count)
(let (found)
(while (and (not found) pairs)
(goto-char (caar pairs))
(when (re-search-forward string (cdar pairs) noerror count)
(setq found t))
(pop pairs))
found)))
(tests
'(
;; FIXME: this test should pass after fixing bug#54733:
;; ("aaaa" "C-M-% .* RET 1 RET !" "1a1a")
)))
(query-replace--perform-tests tests)))
;;; Tests for `query-replace' undo feature.