--- 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