HCoop
/
clinton
/
parenscript.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4b5d180
)
Added tests for previous script* eval bug.
author
Vladimir Sedach
<vsedach@gmail.com>
Mon, 30 Jul 2007 21:36:15 +0000
(21:36 +0000)
committer
Vladimir Sedach
<vsedach@gmail.com>
Mon, 30 Jul 2007 21:36:15 +0000
(21:36 +0000)
t/ps-tests.lisp
patch
|
blob
|
blame
|
history
diff --git
a/t/ps-tests.lisp
b/t/ps-tests.lisp
index
4150f12
..
cb0bd96
100644
(file)
--- a/
t/ps-tests.lisp
+++ b/
t/ps-tests.lisp
@@
-212,3
+212,8
@@
x = 2 + sideEffect() + x + 5;")
(slot-value (if (not zoo) foo bar) 'x)
"(!zoo ? foo : bar).x")
+(test script-star-eval1
+ (is (string= "x = 1; y = 2;" (normalize-js-code (let ((*enable-package-system* nil)) (script* '(setf x 1) '(setf y 2)))))))
+
+(test script-star-eval2
+ (is (string= "x = 1;" (normalize-js-code (let ((*enable-package-system* nil)) (script* '(setf x 1)))))))