RegressionTests__JavaScriptTests.st
changeset 1002 820e29485296
parent 946 7eeef810d524
child 1003 0a8da511c390
--- a/RegressionTests__JavaScriptTests.st	Fri Sep 20 12:47:39 2013 +0200
+++ b/RegressionTests__JavaScriptTests.st	Fri Sep 20 21:31:16 2013 +0200
@@ -94,7 +94,12 @@
 !
 
 execute:code for:receiver arguments:arguments
-    |f result|
+    |parser f result|
+
+    "/ First, validate the tree
+    parser := JavaScriptParser parseMethod: code in: nil.
+    self assert: parser tree notNil.
+    JavaScriptParseNodeValidator validate: parser tree source: code.
 
     "/ Transcript showCR:(thisContext sender selector , '...').
 
@@ -115,6 +120,7 @@
     ^ result
 
     "Modified: / 09-10-2011 / 11:41:51 / cg"
+    "Modified (format): / 20-09-2013 / 11:56:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 execute:code for:receiver arguments:arguments expect:expectedResult
@@ -170,10 +176,12 @@
 
 setUp
     JavaScriptCompiler isNil ifTrue:[
-        Smalltalk loadPackage:'stx:libjavascript'
+        Smalltalk loadPackage:'stx:libjavascript'.
+        JavaScriptParseNodeValidator autoload.
     ].
 
     "Created: / 09-08-2011 / 23:12:13 / cg"
+    "Modified: / 20-09-2013 / 11:58:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 withTranscriptRedirectedTo:aStream do:aBlock