From 4ce2720e1c097efb497d9f142901402d3cbb5f25 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 20 Jul 2014 21:34:03 -0400 Subject: [PATCH] * test/automated/advice-tests.el (advice-test-call-interactively): Make sure the function's definition is fully restored at the end. --- test/ChangeLog | 5 +++++ test/automated/advice-tests.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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." -- 2.11.4.GIT