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:
ceb1f27
)
Updated tests to reflect changes in latest patches from Daniel Gackle.
author
Vladimir Sedach
<vsedach@gmail.com>
Sun, 12 Apr 2009 02:25:18 +0000
(20:25 -0600)
committer
Vladimir Sedach
<vsedach@gmail.com>
Sun, 12 Apr 2009 23:10:31 +0000
(17:10 -0600)
t/ps-tests.lisp
patch
|
blob
|
blame
|
history
diff --git
a/t/ps-tests.lisp
b/t/ps-tests.lisp
index
86bc5c2
..
1c52019
100644
(file)
--- a/
t/ps-tests.lisp
+++ b/
t/ps-tests.lisp
@@
-221,7
+221,7
@@
x = 2 + sideEffect() + x + 5;")
(test-ps-js quoted-nil-is-array
'nil
(test-ps-js quoted-nil-is-array
'nil
- "
new Array()
")
+ "
[]
")
(test-ps-js defsetf1
(progn (defsetf baz (x y) (newval) `(set-baz ,x ,y ,newval))
(test-ps-js defsetf1
(progn (defsetf baz (x y) (newval) `(set-baz ,x ,y ,newval))
@@
-382,19
+382,16
@@
__setf_someThing(_js1, _js2, _js3);")
(test-ps-js defun-keyword1
(defun zoo (foo bar &key baz) (return (+ foo bar baz)))
(test-ps-js defun-keyword1
(defun zoo (foo bar &key baz) (return (+ foo bar baz)))
-
"function zoo(foo, bar) {
+"function zoo(foo, bar) {
var baz;
var baz;
- var _js4 = arguments.length;
- var n1 = 2;
- for (; n1 < _js4; ) {
+ var _js3 = arguments.length;
+ for (var n1 = 2; n1 < _js3; n1 += 2) {
switch (arguments[n1]) {
case 'baz':
{
baz = arguments[n1 + 1];
};
};
switch (arguments[n1]) {
case 'baz':
{
baz = arguments[n1 + 1];
};
};
- var _js5 = n1 + 2;
- n1 = _js5;
};
if (baz === undefined) {
baz = null;
};
if (baz === undefined) {
baz = null;
@@
-406,17
+403,14
@@
__setf_someThing(_js1, _js2, _js3);")
(defun zoo (&key baz) (return (* baz baz)))
"function zoo() {
var baz;
(defun zoo (&key baz) (return (* baz baz)))
"function zoo() {
var baz;
- var _js4 = arguments.length;
- var n1 = 0;
- for (; n1 < _js4; ) {
+ var _js3 = arguments.length;
+ for (var n1 = 0; n1 < _js3; n1 += 2) {
switch (arguments[n1]) {
case 'baz':
{
baz = arguments[n1 + 1];
};
};
switch (arguments[n1]) {
case 'baz':
{
baz = arguments[n1 + 1];
};
};
- var _js5 = n1 + 2;
- n1 = _js5;
};
if (baz === undefined) {
baz = null;
};
if (baz === undefined) {
baz = null;
@@
-429,9
+423,8
@@
__setf_someThing(_js1, _js2, _js3);")
"function zoo() {
var baz;
var bar;
"function zoo() {
var baz;
var bar;
- var _js4 = arguments.length;
- var n1 = 0;
- for (; n1 < _js4; ) {
+ var _js3 = arguments.length;
+ for (var n1 = 0; n1 < _js3; n1 += 2) {
switch (arguments[n1]) {
case 'baz':
{
switch (arguments[n1]) {
case 'baz':
{
@@
-443,8
+436,6
@@
__setf_someThing(_js1, _js2, _js3);")
bar = arguments[n1 + 1];
};
};
bar = arguments[n1 + 1];
};
};
- var _js5 = n1 + 2;
- n1 = _js5;
};
if (baz === undefined) {
baz = null;
};
if (baz === undefined) {
baz = null;
@@
-790,7
+781,7
@@
try {
(is (string= "5;" (let ((x 5)) (ps (lisp x))))))
(test ps*-lisp-expands-in-null-lexical-environment
(is (string= "5;" (let ((x 5)) (ps (lisp x))))))
(test ps*-lisp-expands-in-null-lexical-environment
- (signals error (let ((x 5)) (ps* '(lisp x)))))
+ (signals error (let ((x 5)) (
declare (ignore x)) (
ps* '(lisp x)))))
(test ps*-lisp-expands-in-dynamic-environment
(is (string= "1 + 2;" (let ((*print-level* 2)) (ps* '(+ 1 (lisp *print-level*)))))))
(test ps*-lisp-expands-in-dynamic-environment
(is (string= "1 + 2;" (let ((*print-level* 2)) (ps* '(+ 1 (lisp *print-level*)))))))