1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
(require 'ert)
(require 'wgrep-test)
(require 'ag)
(defun wgrep-test--ag (string file)
(let ((buf (ag/search string default-directory :file-regex (regexp-quote file) :regexp t)))
(wgrep-test--wait buf)))
(ert-deftest wgrep-ag-normal ()
(ert-skip "Skipping wgrep-ag-normal")
:tags '(wgrep-subtest)
(wgrep-test/default
(wgrep-test-fixture "HOGE\nFOO\nBAZ\n"
(lambda (file)
(wgrep-test--ag "FOO|HOGE" file)
(wgrep-change-to-wgrep-mode)
(goto-char (point-min))
(wgrep-goto-first-found)
;; search hit line (hit by -C option)
(should (re-search-forward "HOGE" nil t))
;; delete 1st line
(wgrep-mark-deletion)
(should (re-search-forward "FOO" nil t))
;; replace 2nd line
(replace-match "FOO2")
;; apply to buffer
(wgrep-finish-edit)
;; save to file
(wgrep-save-all-buffers)
;; compare file contents is valid
(should (equal "FOO2\nBAZ\n" (wgrep-test--get-contents file)))))))
|
