procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* test/automated/subr-tests.el (subr-test-when): Fix test

Browse source
This commit is contained in:
Artur Malabarba 2015-11-06 11:18:23 +00:00
parent 40014fe9fd
commit 9b912623ad
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
test/automated/subr-tests.el
View file

@ -91,8 +91,15 @@
(should (equal (when t 'x 2) 2))
(should (equal (when nil 'x 1) nil))
(should (equal (when nil 'x 2) nil))
(should (equal (macroexpand-all '(when a b))
'(if a b)))
(let ((x 1))
(should-not (when nil
(setq x (1+ x))
x))
(should (= x 1))
(should (= 2 (when true
(setq x (1+ x))
x)))
(should (= x 2)))
(should (equal (macroexpand-all '(when a b c d))
'(if a (progn b c d)))))