compiler/tests/PPCCodeGeneratorTest.st
changeset 534 a949c4fe44df
parent 529 439c4057517f
child 535 a8feb0f47574
--- a/compiler/tests/PPCCodeGeneratorTest.st	Wed Aug 26 23:34:48 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Sat Aug 29 07:56:14 2015 +0100
@@ -10,7 +10,14 @@
 !
 
 
-!PPCCodeGeneratorTest methodsFor:'as yet unclassified'!
+!PPCCodeGeneratorTest methodsFor:'generating'!
+
+compileTree: root
+    parser := configuration compile: root.
+    
+! !
+
+!PPCCodeGeneratorTest methodsFor:'running'!
 
 context	
     ^ context := PPCProfilingContext new
@@ -18,17 +25,19 @@
 
 setUp
     options := PPCCompilationOptions default
-        profile: true;
-        codeGenerator: PPCCodeGenerator.
+        profile: true.
         
     configuration := PPCPluggableConfiguration on: [ :_self | 
-        _self cacheFirstFollow.
-        _self check.
-        _self generate.
+        options cacheFirstFollow ifTrue:[ 
+            _self runPass: PPCCacheFirstFollowPass.
+        ].
+        _self runPass: PPCCheckingVisitor.
+        _self runPass: PPCUniversalCodeGenerator.
+        _self generateParser.
     ].
     configuration options: options.
 
-    "Modified: / 24-08-2015 / 23:40:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-09-2015 / 10:31:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
@@ -40,13 +49,6 @@
     ].
 ! !
 
-!PPCCodeGeneratorTest methodsFor:'generating'!
-
-compileTree: root
-    parser := configuration compile: root.
-    
-! !
-
 !PPCCodeGeneratorTest methodsFor:'testing'!
 
 assert: whatever parse: input