From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Jul 2014 01:34:03 +0000 (-0400)
Subject: * test/automated/advice-tests.el (advice-test-call-interactively): Make sure
X-Git-Tag: emacs-25.0.90~2636^3~61
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4ce2720e1c097efb497d9f142901402d3cbb5f25;p=emacs.git

* test/automated/advice-tests.el (advice-test-call-interactively): Make sure
the function's definition is fully restored at the end.
---

diff --git a/test/ChangeLog b/test/ChangeLog
index 6e2f89157e3..dca2f7e14fe 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* automated/advice-tests.el (advice-test-call-interactively): Make sure
+	the function's definition is fully restored at the end.
+
 2014-07-12  Fabián Ezequiel Gallina  <fgallina@gnu.org>
 
 	* automated/python-tests.el (python-indent-block-enders-1)
diff --git a/test/automated/advice-tests.el b/test/automated/advice-tests.el
index a87d979f919..bbb4adda9fd 100644
--- a/test/automated/advice-tests.el
+++ b/test/automated/advice-tests.el
@@ -160,7 +160,8 @@ function being an around advice."
           (advice-add 'call-interactively :before #'ignore)
           (should (equal (sm-test7.4) '(1 . nil)))
           (should (equal (call-interactively 'sm-test7.4) '(1 . t))))
-      (fset 'call-interactively old))))
+      (advice-remove 'call-interactively #'ignore)
+      (should (eq (symbol-function 'call-interactively) old)))))
 
 (ert-deftest advice-test-interactive ()
   "Check handling of interactive spec."