diff options
| author | Gemini Lasswell | 2017-11-05 21:36:58 -0800 |
|---|---|---|
| committer | Gemini Lasswell | 2017-11-26 17:36:14 -0800 |
| commit | 700f74e4c8d1b33cdf96dab9586dc41ebccaba7d (patch) | |
| tree | 38353258815ea78e2d4106a5e27b7788a5cf26a5 /test | |
| parent | 0ded1b41a986229eaa4218095d9c78d1800c0b27 (diff) | |
| download | emacs-700f74e4c8d1b33cdf96dab9586dc41ebccaba7d.tar.gz emacs-700f74e4c8d1b33cdf96dab9586dc41ebccaba7d.zip | |
Fix Edebug specs for if-let* and and-let* (Bug#29236)
* test/lisp/emacs-lisp/subr-x.el (if-let*, if-let): Change Edebug
spec to cause Edebug to instrument tests the results of which are
not bound to symbols (the (VALUEFORM) case).
(and-let*): Change Edebug spec to allow empty body.
*test/lisp/emacs-lisp/subr-x-tests.el:
(subr-x-and-let*-test-group-1): Add missing quote to erroneous
form so Edebug will work on this test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el index 0e8871d9a9c..0187f39d15d 100644 --- a/test/lisp/emacs-lisp/subr-x-tests.el +++ b/test/lisp/emacs-lisp/subr-x-tests.el | |||
| @@ -403,7 +403,7 @@ | |||
| 403 | (should-error (eval '(and-let* (nil (x 1))) lexical-binding) | 403 | (should-error (eval '(and-let* (nil (x 1))) lexical-binding) |
| 404 | :type 'setting-constant) | 404 | :type 'setting-constant) |
| 405 | (should (equal nil (and-let* ((nil) (x 1))))) | 405 | (should (equal nil (and-let* ((nil) (x 1))))) |
| 406 | (should-error (eval (and-let* (2 (x 1))) lexical-binding) | 406 | (should-error (eval '(and-let* (2 (x 1))) lexical-binding) |
| 407 | :type 'wrong-type-argument) | 407 | :type 'wrong-type-argument) |
| 408 | (should (equal 1 (and-let* ((2) (x 1))))) | 408 | (should (equal 1 (and-let* ((2) (x 1))))) |
| 409 | (should (equal 2 (and-let* ((x 1) (2))))) | 409 | (should (equal 2 (and-let* ((x 1) (2))))) |