[elpa] master 35415e3 027/184: ivy-test.el (ivy-swiper-wgrep): Add test

[Oleh Krehel]

branch: master
commit 35415e30c0728517555d733dd7c37d6d32bab4e7
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy-test.el (ivy-swiper-wgrep): Add test
    
    Re #2156
---
 ivy-test.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

diff --git a/ivy-test.el b/ivy-test.el
index 4dd854b..01c12c1 100644
--- a/ivy-test.el
+++ b/ivy-test.el
@@ -1057,11 +1057,12 @@ a buffer visiting a file."
                         (let ((key (eval (cadr x))))
                           (list key (lookup-key global-map key)))))
                     body))))
-    `(let ((temp-buffer (generate-new-buffer " *temp*")))
+    `(let ((temp-buffer (get-buffer-create " *temp*")))
        (save-window-excursion
          (unwind-protect
               (progn
                 (switch-to-buffer temp-buffer)
+                (erase-buffer)
                 (insert ,text)
                 (search-backward "|")
                 (delete-char 1)
@@ -1235,6 +1236,24 @@ a buffer visiting a file."
        ("C-s" "Foo" "C-n RET")))
     "Foo\nfoo|\nFOO\n")))
 
+(ert-deftest ivy-swiper-wgrep ()
+  (dolist (search-cmd '(swiper swiper-isearch))
+    (should
+     (string=
+      (let ((default-directory "/tmp/"))
+        (ivy-with-text
+         "|a one\na two\na three"
+         (global-set-key (kbd "C-s") search-cmd)
+         ("C-s" "a" "C-c C-o" "C-x C-q" "C-e" "1" "C-n" "2" "C-n" "C-e" "3")))
+      "-*- mode:grep; default-directory: \"/tmp/\" -*-
+
+
+3 candidates:
+./ *temp*:1:a one1
+./ *temp*:2:a two2
+./ *temp*:3:a three3|
+"))))
+
 (ert-deftest swiper--isearch-format ()
   (setq swiper--isearch-start-point 0)
   (with-temp-buffer