diff -r ff58cd9f1f3c -r 0fb1f0799fc1 compiler/tests/PPCCodeGeneratorTest.st --- a/compiler/tests/PPCCodeGeneratorTest.st Fri Jul 24 15:37:23 2015 +0100 +++ b/compiler/tests/PPCCodeGeneratorTest.st Fri Jul 24 19:42:09 2015 +0100 @@ -917,48 +917,6 @@ "Created: / 22-05-2015 / 11:47:09 / Jan Vrany " ! -testSequenceOptInlined1 - | a b bOpt | - - a := $a asParser asCompilerNode. - b := $b asParser asCompilerNode. - bOpt := PPCOptionalNode new - child: b ; - markForInline; - yourself. - node := PPCSequenceNode new - children: { a . bOpt }; - yourself. - self compileTree: node. - - self assert: parser parse: 'ab' to: #($a $b ) end: 2. - self assert: parser parse: 'a' to: #( $a nil ) end: 1. - - "Created: / 22-05-2015 / 11:47:11 / Jan Vrany " -! - -testSequenceOptInlined2 - | a b bOpt | - - a := $a asParser asCompilerNode. - a markForInline. - b := $b asParser asCompilerNode. - b markForInline. - bOpt := PPCOptionalNode new - child: b ; - markForInline; - yourself. - node := PPCSequenceNode new - children: { a . bOpt }; - yourself. - self compileTree: node. - - self assert: parser parse: 'ab' to: #($a $b ) end: 2. - self assert: parser parse: 'a' to: #( $a nil ) end: 1. - - "Created: / 22-05-2015 / 11:47:09 / Jan Vrany " -! - testStarAnyNode arguments cacheFirstFollow: false. node := PPCStarAnyNode new