diff options
author | Glenn Morris <rgm@gnu.org> | 2014-05-25 19:28:09 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-05-25 19:28:09 -0700 |
commit | 015936fba1bcaa51b7886a73144d4c088200c0aa (patch) | |
tree | c9628339352c1a97e574df28966e977143c43e41 /test | |
parent | 5e26d9849a79bf78fda821979fc937f7e5e6df52 (diff) | |
parent | e8f2cc26e712f42f6391fa52cd67c3e791096f1e (diff) | |
download | emacs-015936fba1bcaa51b7886a73144d4c088200c0aa.tar.gz |
Merge from emacs-24; up to 2014-05-26T10:21:18Z!rgm@gnu.org
Diffstat (limited to 'test')
-rw-r--r-- | test/automated/advice-tests.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/automated/advice-tests.el b/test/automated/advice-tests.el index e0c3b40487e..a87d979f919 100644 --- a/test/automated/advice-tests.el +++ b/test/automated/advice-tests.el @@ -184,6 +184,7 @@ function being an around advice." (sm-advice (lambda (x) (if (consp x) (list (* 5 (car x))) (* 4 x))))) (should (equal (funcall sm-test10 5) 15)) (add-function :filter-args (var sm-test10) sm-advice) + (should (advice-function-member-p sm-advice sm-test10)) (should (equal (funcall sm-test10 5) 35)) (add-function :filter-return (var sm-test10) sm-advice) (should (equal (funcall sm-test10 5) 60)) |