diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-28 12:02:01 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-07-28 12:02:01 -0400 |
| commit | bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe (patch) | |
| tree | 3ca8b55d994ad39e94fd972b02e6d7d539339c25 /test/lisp/emacs-lisp | |
| parent | b2225a374f24f1ee1a881bfd5d3c1f7b57447e47 (diff) | |
| download | emacs-bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe.tar.gz emacs-bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe.tar.bz2 emacs-bfb8d33fd18b1d9fd5868204d472cb19f5bcafbe.zip | |
* lisp/subr.el (define-symbol-prop): New function
(symbol-file): Make it find symbol property definitions.
* lisp/emacs-lisp/pcase.el (pcase-defmacro):
* lisp/emacs-lisp/ert.el (ert-set-test): Use it instead of `put'.
(ert-describe-test): Adjust call to symbol-file accordingly.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/ert-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el index 317838b250f..57463ad932d 100644 --- a/test/lisp/emacs-lisp/ert-tests.el +++ b/test/lisp/emacs-lisp/ert-tests.el @@ -352,7 +352,7 @@ This macro is used to test if macroexpansion in `should' works." (let ((abc (ert-get-test 'ert-test-abc))) (should (equal (ert-test-tags abc) '(bar))) (should (equal (ert-test-documentation abc) "foo"))) - (should (equal (symbol-file 'ert-test-deftest 'ert-deftest) + (should (equal (symbol-file 'ert-test-deftest 'ert--test) (symbol-file 'ert-test--which-file 'defun))) (ert-deftest ert-test-def () :expected-result ':passed) |