RegressionTests__JavaScriptTests.st
changeset 556 f36d96371557
parent 363 dc1c8fd2c10d
child 557 c4d3715477f8
--- 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$'
 ! !