--- 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 <jan.vrany@fit.cvut.cz>"
!
-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 <jan.vrany@fit.cvut.cz>"
-!
-
-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 <jan.vrany@fit.cvut.cz>"
-!
-
testStarAnyNode
arguments cacheFirstFollow: false.
node := PPCStarAnyNode new