compiler/tests/PPCCodeGeneratorTest.st
changeset 524 f6f68d32de73
parent 515 b5316ef15274
child 525 751532c8f3db
--- a/compiler/tests/PPCCodeGeneratorTest.st	Mon Aug 17 12:13:16 2015 +0100
+++ b/compiler/tests/PPCCodeGeneratorTest.st	Mon Aug 24 15:34:14 2015 +0100
@@ -23,17 +23,10 @@
         
     configuration := PPCPluggableConfiguration on: [ :_self | 
         _self cacheFirstFollow.
+        _self check.
         _self generate.
     ].
     configuration arguments: arguments.
-    
-            
-    compiler := PPCCodeGen new.
-    compiler arguments: arguments.
-
-    visitor := PPCCodeGenerator new.
-    visitor compiler: compiler.
-    visitor arguments: arguments.
 !
 
 tearDown
@@ -986,7 +979,22 @@
     
     self assert: parser parse: 'aaa' to: #($a $a $a) end: 3.
     self assert: parser parse: 'ab' to: #( $a ) end: 1.
-    self assert: parser parse: 'b' to: #( ) end: 0.
+    self assert: parser parse: 'b' to: #() end: 0.
+    
+    self assert: parser parse: ''.
+    self assert: result isArray.
+!
+
+testStarNode2
+    node := PPCStarNode new
+        child: ('aa' asParser asCompilerNode);
+        yourself.
+    
+    self compileTree: node.
+    
+    self assert: parser parse: 'aaaa' to: #('aa' 'aa') end: 4.
+    self assert: parser parse: 'aab' to: #( 'aa' ) end: 2.
+    self assert: parser parse: 'a' to: #() end: 0.
 !
 
 testSymbolActionNode