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' }"
"{ NameSpace: Smalltalk }"
PPParser subclass:#PPStartOfWordParser
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitParser-Parsers'
!
!PPStartOfWordParser methodsFor:'as yet unclassified'!
acceptsEpsilon
^ true
!
parseOn: aPPContext
aPPContext atEnd ifTrue: [
^ PPFailure message: 'Start of word expected' context: aPPContext at: aPPContext position
].
(aPPContext position == 0) ifTrue: [
(aPPContext peek isAlphaNumeric) ifTrue: [
^ #startOfWord
] ifFalse: [
^ PPFailure message: 'Start of word expected' context: aPPContext at: aPPContext position
]
].
aPPContext back.
aPPContext peek isAlphaNumeric ifTrue: [
^ PPFailure message: 'Start of word expected' context: aPPContext at: aPPContext position
].
aPPContext next.
^ aPPContext peek isAlphaNumeric ifTrue: [ #startOfWord ] ifFalse: [
PPFailure message: 'Start of word expected' context: aPPContext at: aPPContext position
]
! !