diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 17:16:36 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-05-16 17:16:36 -0400 |
| commit | 9ed0b55848ce8a3049fd82e42cd9ea274410d426 (patch) | |
| tree | 7a726eb9181b9e07e5752222faae1f22d8268241 /test/lisp/emacs-lisp/cl-macs-tests.el | |
| parent | c89b0add51305e83c822c08f1026e7d1278eec74 (diff) | |
| download | emacs-9ed0b55848ce8a3049fd82e42cd9ea274410d426.tar.gz emacs-9ed0b55848ce8a3049fd82e42cd9ea274410d426.tar.bz2 emacs-9ed0b55848ce8a3049fd82e42cd9ea274410d426.zip | |
* cl-macs-tests.el (cl-macs-test--symbol-macrolet): New test
Diffstat (limited to 'test/lisp/emacs-lisp/cl-macs-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cl-macs-tests.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/cl-macs-tests.el b/test/lisp/emacs-lisp/cl-macs-tests.el index 989553bd7bd..09ce660a2fd 100644 --- a/test/lisp/emacs-lisp/cl-macs-tests.el +++ b/test/lisp/emacs-lisp/cl-macs-tests.el @@ -513,4 +513,21 @@ collection clause." (macroexpand '(cl-defstruct (hash-table (:predicate hash-table-p)))) :type 'wrong-type-argument)) +(ert-deftest cl-macs-test--symbol-macrolet () + ;; A `setq' shouldn't be converted to a `setf' just because it occurs within + ;; a symbol-macrolet! + (should-error + ;; Use `eval' so the error is signaled when running the test rather than + ;; when macroexpanding it. + (eval '(let ((l (list 1))) (cl-symbol-macrolet ((x 1)) (setq (car l) 0))))) + ;; Make sure `gv-synthetic-place' isn't macro-expanded before `setf' gets to + ;; see its `gv-expander'. + (should (equal (let ((l '(0))) + (let ((cl (car l))) + (cl-symbol-macrolet + ((p (gv-synthetic-place cl (lambda (v) `(setcar l ,v))))) + (cl-incf p))) + l) + '(1)))) + ;;; cl-macs-tests.el ends here |