mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

* test/lisp/emacs-lisp/cl-lib-tests.el (cl-lib-symbol-macrolet): New test.

Browse source
This commit is contained in:
Stefan Monnier 2017-03-31 10:05:12 -04:00
parent 1da9a20766
commit 1f5b4ed628
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/emacs-lisp/cl-lib-tests.el
View file

@ -493,4 +493,13 @@
(should (cl-typep '* 'cl-lib-test-type))
(should-not (cl-typep 1 'cl-lib-test-type)))
(ert-deftest cl-lib-symbol-macrolet ()
(should (equal (cl-flet ((f (x) (+ x 5)))
(let ((x 5))
(f (+ x 6))))
(cl-symbol-macrolet ((f (+ x 6)))
(cl-flet ((f (x) (+ x 5)))
(let ((x 5))
(f f)))))))
;;; cl-lib.el ends here