[nongnu] elpa/iedit 22f4729ae9 150/301: Add test case for iedit-hide-unmatched-lines

[ELPA Syncer]

branch: elpa/iedit
commit 22f4729ae9f27103861db1c847b4cd016ed39bfb
Author: Victor Ren <victorhge@gmail.com>
Commit: Victor Ren <victorhge@gmail.com>

    Add test case for iedit-hide-unmatched-lines
---
 iedit-lib.el   |  5 +++--
 iedit-tests.el | 28 +++++++++++++++++++++++++---
 2 files changed, 28 insertions(+), 5 deletions(-)

diff --git a/iedit-lib.el b/iedit-lib.el
index 05128bb59f..bac0451a51 100644
--- a/iedit-lib.el
+++ b/iedit-lib.el
@@ -3,7 +3,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2012-12-22 23:52:42 Victor Ren>
+;; Time-stamp: <2013-01-19 00:31:41 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Keywords: occurrence region simultaneous rectangle refactoring
 ;; Version: 0.97
@@ -535,7 +535,8 @@ value of `iedit-occurrence-context-lines' is used for this 
time."
         (set (make-local-variable 'line-move-ignore-invisible) t)
         (add-to-invisibility-spec '(iedit-invisible-overlay-name . t))
         (dolist (unmatch unmatched-lines)
-          (iedit-make-unmatched-lines-overlay (car unmatch) (cadr 
unmatch)))))))
+          (iedit-make-unmatched-lines-overlay (car unmatch) (cadr unmatch)))))
+    unmatched-lines))
 
 ;;;; functions for overlay keymap
 (defun iedit-apply-on-occurrences (function &rest args)
diff --git a/iedit-tests.el b/iedit-tests.el
index 4e21a13f3f..cdba17640c 100644
--- a/iedit-tests.el
+++ b/iedit-tests.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2013-01-18 17:30:39 Victor Ren>
+;; Time-stamp: <2013-01-19 21:32:53 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Version: 0.97
 ;; X-URL: http://www.emacswiki.org/emacs/Iedit
@@ -536,7 +536,7 @@ arfoo
 "a
 (defun foo (foo bar foo)
 \"foo bar foobar\" nil)
-(defun bar (bar foo bar)
+ (defun bar (bar foo bar)
   \"bar foo barfoo\" nil)"
    (lambda ()
       (iedit-mode)
@@ -560,7 +560,7 @@ arfoo
 "a
 (defun foo (foo bar foo)
 \"foo bar foobar\" nil)
-(defun bar (bar foo bar)
+ (defun bar (bar foo bar)
   \"bar foo barfoo\" nil)"
    (lambda ()
       (iedit-mode)
@@ -595,6 +595,28 @@ abcd" 
"12345678901234567890123456789012345678901234567890...")))
   (dolist (test iedit-printable-test-lists)
     (should (string= (iedit-printable (car test)) (cadr test)))))
 
+(ert-deftest iedit-hide-unmatched-lines-test ()
+  "Test function iedit-hide-unmatched-lines."
+  (with-iedit-test-fixture
+   "foo
+a
+  foo
+a
+a
+barfoo
+a
+a
+a
+a
+ foo"
+   (lambda ()
+     (should (equal (iedit-hide-unmatched-lines 0) nil))
+     (iedit-show-all)
+     (should (equal (iedit-hide-unmatched-lines 1) '((14 29))))
+     (iedit-show-all)
+     (should (equal (iedit-hide-unmatched-lines 2) '((6 8))))
+     (iedit-show-all)
+     (should (equal (iedit-hide-unmatched-lines 3) nil)))))
 
 ;; (elp-instrument-list '(;; insert-and-inherit
 ;;                        ;; delete-region