[Emacs-diffs] trunk r117555: * test/automated/advice-tests.el (advice-test-call-interactively): Make sure

[Stefan Monnier]

------------------------------------------------------------
revno: 117555
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2014-07-20 21:34:03 -0400
message:
  * test/automated/advice-tests.el (advice-test-call-interactively): Make sure
  the function's definition is fully restored at the end.
modified:
  test/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-8588
  test/automated/advice-tests.el advice.el-20121111003311-i96f8i1au0zeaju7-1

=== modified file 'test/ChangeLog'
--- a/test/ChangeLog    2014-07-12 17:53:29 +0000
+++ b/test/ChangeLog    2014-07-21 01:34:03 +0000
@@ -1,3 +1,8 @@
+2014-07-21  Stefan Monnier  <address@hidden>
+
+       * 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  <address@hidden>
 
        * automated/python-tests.el (python-indent-block-enders-1)

=== modified file 'test/automated/advice-tests.el'
--- a/test/automated/advice-tests.el    2014-05-23 16:17:14 +0000
+++ b/test/automated/advice-tests.el    2014-07-21 01:34:03 +0000
@@ -160,7 +160,8 @@
           (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."