hg/stx-goodies-petitparser: comparison compiler/tests/PPCCodeGeneratorTest.st

equal deleted inserted replaced

-:f59795ddcd90
+:7544e517db96
 		arguments'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Tests-Visitors'
 !
 !PPCCodeGeneratorTest methodsFor:'as yet unclassified'!
 context
 ^ context := PPCProfilingContext new
 self assert: parser parse: 'abc' to: #($a $b $c) end: 3.
 self assert: parser parse: 'abcd' to: #( $a $b $c ) end: 3.
 self assert: parser fail: 'ab'.
 !
+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
 child: PPCNilNode new;
 yourself.
 self assert: parser parse: 'foo' to: $f end: 1.
 self assert: parser parse: 'bar' to: $b end: 1.
 self assert: parser parse: '' to: nil.
 ! !
+!PPCCodeGeneratorTest class methodsFor:'documentation'!
+version_HG
+^ '$Changeset: <not expanded> $'
+! !

changeset 471	7544e517db96
parent 464	f6d77fee9811
child 481	34ee0d3c72e7