--- a/RegressionTests__JavaScriptTests.st Tue Feb 09 23:09:48 2010 +0100
+++ b/RegressionTests__JavaScriptTests.st Thu Mar 18 15:49:24 2010 +0100
@@ -66,7 +66,7 @@
]
!
-execute:code for:receiver arguments:arguments expect:expectedResult
+execute:code for:receiver arguments:arguments
|f result|
"/ Transcript showCR:(thisContext sender selector , '...').
@@ -85,6 +85,13 @@
f decompileTo:Transcript.
result := f valueWithReceiver:receiver arguments:arguments.
+ ^ result
+!
+
+execute:code for:receiver arguments:arguments expect:expectedResult
+ |result|
+
+ result := self execute:code for:receiver arguments:arguments.
self assert:(result = expectedResult).
!
@@ -1059,6 +1066,34 @@
"
!
+testLiterals01
+ |t|
+
+ t := JavaScriptParser
+ evaluate:'
+[
+ {"params": {"name": "q"}, "method": "click"},
+ {"params": {"text": "hello world", "name": "q"}, "method": "type"},
+ {"params": {"link": "Hallo-Welt-Programm \u2013 Wikipedia"}, "method": "click"},
+ {"params": {"timeout": "20000"}, "method": "waits.forPageLoad"},
+ {"params": {"link": "Druckversion", "timeout": "8000"}, "method": "waits.forElement"},
+ {"params": {"link": "Druckversion"}, "method": "click"},
+ {"params": {"timeout": "20000"}, "method": "waits.forPageLoad"},
+ {"params": {"id": "siteSub"}, "method": "asserts.assertNode"}
+];
+'.
+ self assert:(t isArray).
+ self assert:(t size == 8).
+ self assert:(t first class == JavaScriptObject).
+ self assert:((t first at:#method) = 'click').
+ self assert:((t last at:#method) = 'asserts.assertNode').
+
+ "
+ self run:#testLiterals01
+ self new testLiterals01
+ "
+!
+
testLocalFunction01
self
execute:'test(arg) {
@@ -3971,7 +4006,7 @@
try {
failingMethod();
} catch (Error e) {
- exceptionRaised(e);
+ exceptionRaised();
} finally {
finallyExecuted = true;
}
@@ -4578,4 +4613,8 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !