[nongnu] elpa/iedit e5f083f977 072/301: Add testcase for iedit-restrict-defun

[ELPA Syncer]

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

    Add testcase for iedit-restrict-defun
---
 iedit-tests.el | 37 ++++++++++++++++++++++++++++++++++++-
 1 file changed, 36 insertions(+), 1 deletion(-)

diff --git a/iedit-tests.el b/iedit-tests.el
index d747a79523..dadb21354d 100755
--- a/iedit-tests.el
+++ b/iedit-tests.el
@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 2010, 2011, 2012 Victor Ren
 
-;; Time-stamp: <2012-02-28 12:27:32 Victor Ren>
+;; Time-stamp: <2012-03-01 00:49:15 Victor Ren>
 ;; Author: Victor Ren <victorhge@gmail.com>
 ;; Version: 0.94
 ;; X-URL: http://www.emacswiki.org/emacs/Iedit
@@ -288,6 +288,31 @@ arfoo
  foo"))
  (should (equal killed-rectangle '("foo" " fo" "  b" "   "))))))
 
+(ert-deftest iedit-restrict-defun-test ()
+  (with-iedit-test-fixture
+"a
+(defun foo (foo bar foo)
+\"foo bar foobar\" nil)
+(defun bar (bar foo bar)
+  \"bar foo barfoo\" nil)"
+   (lambda ()
+      (iedit-mode)
+      (emacs-lisp-mode)
+      (goto-char 5)
+      (iedit-mode)
+      (iedit-restrict-defun)
+      (should (= 1 (length iedit-occurrences-overlays)))
+      (iedit-mode)
+      (goto-char 13)
+      (iedit-mode 0)
+      (should (= 4 (length iedit-occurrences-overlays)))
+      (iedit-mode)
+      (iedit-mode)
+      (mark-defun)
+      (iedit-mode)
+      (should (= 4 (length iedit-occurrences-overlays))))))
+
+
 (defvar iedit-printable-test-lists
   '(("" "")
     ("abc" "abc")
@@ -303,4 +328,14 @@ abcd" 
"12345678901234567890123456789012345678901234567890...")))
     (should (string= (iedit-printable (car test)) (cadr test)))))
 
 
+;; (elp-instrument-list '(insert-and-inherit
+;;                        delete-region
+;;                        goto-char
+;;                        iedit-occurrence-update
+;;                        buffer-substring-no-properties
+;;                        string=
+;;                        re-search-forward
+;;                        replace-match))
+
+
 ;;; iedit-tests.el ends here