Tests refactoring - use generated test cases to make sure all posibilities are tested.
Do not generate resource for all combinations, use PPCSetUpBeforeTearDownAfterResource
instead that delegates parser compilation to the testcase itself (it calls it's #setUpBefore
method).
"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
Object subclass:#PPCTokenGuard
instanceVariableNames:'node'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Guards'
!
!PPCTokenGuard class methodsFor:'as yet unclassified'!
on: node
^ self new
node: node;
yourself
! !
!PPCTokenGuard methodsFor:'as yet unclassified'!
firstToken
self assert: node firstSetWithTokens size = 1.
^ node firstSetWithTokens anyOne
!
makesSense
^ node firstSetWithTokens size = 1 and: [ node firstSetWithTokens anyOne isTokenNode ]
!
node
^ node
!
node: aPPCNode
node := aPPCNode
! !