"{ Package: 'stx:goodies/petitparser/tests' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#PPAbstractParserTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitTests-Tests'

!

!PPAbstractParserTest class methodsFor:'accessing'!

packageNamesUnderTest

	^ #('PetitParser' 'PetitTests')

! !

!PPAbstractParserTest class methodsFor:'testing'!

isAbstract

	^ self name = #PPAbstractParserTest

! !

!PPAbstractParserTest methodsFor:'utilities'!

assert: aParser fail: aCollection

	^ self assert: aParser fail: aCollection end: 0

!

assert: aParser fail: aCollection end: anInteger

	| stream result |

	self 

		assert: aParser isPetitParser

		description: 'Parser invalid'.

	stream := aCollection asPetitStream.

	result := aParser parse: stream.

	self 

		assert: result isPetitFailure

		description: 'Parser did not fail'.

	self

		assert: stream position = anInteger

		description: 'Parser failed at wrong position'.

	^ result

!

assert: aParser parse: aCollection

	^ self assert: aParser parse: aCollection to: nil end: aCollection size 

!

assert: aParser parse: aCollection end: anInteger

	^ self assert: aParser parse: aCollection to: nil end: anInteger

!

assert: aParser parse: aCollection to: anObject

	^ self assert: aParser parse: aCollection to: anObject end: aCollection size 

!

assert: aParser parse: aCollection to: aTargetObject end: anInteger

	| stream result |

	self 

		assert: aParser isPetitParser

		description: 'Parser invalid'.

	stream := aCollection asPetitStream.

	result := aParser parse: stream.

	aTargetObject isNil

		ifTrue: [ self deny: result isPetitFailure ]

		ifFalse: [ self assert: result = aTargetObject ].

	self 

		assert: stream position = anInteger

		description: 'Parser accepted at wrong position'.

	^ result

!

assert: aParser parse: aCollection toToken: aStartInteger stop: aStopInteger

	^ self assert: aParser parse: aCollection toToken: aStartInteger stop: aStopInteger end: aCollection size

!

assert: aParser parse: aParserObject toToken: aStartInteger stop: aStopInteger end: anEndInteger

	| token |

	token := self assert: aParser parse: aParserObject to: nil end: anEndInteger.

	self assert: (token isKindOf: PPToken).

	self assert: (token start = aStartInteger).

	self assert: (token stop = aStopInteger).

	^ token

! !

!PPAbstractParserTest class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !