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 }"
PPParser subclass:#PPCBridge
instanceVariableNames:'selector'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Core'
!
!PPCBridge class methodsFor:'as yet unclassified'!
on: aSymbol
^ self new
selector: aSymbol;
yourself
! !
!PPCBridge methodsFor:'as yet unclassified'!
call
^ 'self callParser: ', self id, '.'.
!
selector: aSymbol
selector := aSymbol
! !
!PPCBridge methodsFor:'parsing'!
parseOn: aPPContext
| retval |
retval := (aPPContext compiledParser) perform: selector.
(aPPContext compiledParser isError) ifTrue: [
aPPContext compiledParser clearError.
^ PPFailure message: 'error' context: aPPContext
].
^ retval
! !