hg/stx-goodies-petitparser: tests/PPAbstractParserTest.st@6112a403a52d (annotated)

157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/tests' }"
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	TestCase subclass:#PPAbstractParserTest
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitTests-Core'
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!PPAbstractParserTest class methodsFor:'accessing'!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	packageNamesUnderTest
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ #('PetitParser' 'PetitTests')
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	! !
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!PPAbstractParserTest class methodsFor:'testing'!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	isAbstract
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	^ self name = #PPAbstractParserTest
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	! !
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	23	!PPAbstractParserTest methodsFor:'context'!
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	24
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	25	context
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	26	^ PPContext new
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	27	! !
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	28
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!PPAbstractParserTest methodsFor:'utilities'!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	assert: aParser fail: aCollection
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	^ self assert: aParser fail: aCollection end: 0
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	assert: aParser fail: aCollection end: anInteger
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	36	\| stream result context \|
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	self
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	assert: aParser isPetitParser
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	description: 'Parser invalid'.
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	stream := aCollection asPetitStream.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	41	context := self context.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	42
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	43
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	44	result := aParser parse: stream withContext: context.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	self
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	assert: result isPetitFailure
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	description: 'Parser did not fail'.
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	self
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	49	assert: context position = anInteger
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	description: 'Parser failed at wrong position'.
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	^ result
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	assert: aParser parse: aCollection
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	^ self assert: aParser parse: aCollection to: nil end: aCollection size
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	assert: aParser parse: aCollection end: anInteger
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	^ self assert: aParser parse: aCollection to: nil end: anInteger
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	assert: aParser parse: aCollection to: anObject
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	^ self assert: aParser parse: aCollection to: anObject end: aCollection size
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	assert: aParser parse: aCollection to: aTargetObject end: anInteger
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	67	\| stream result context \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	68
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	69	self assert: aParser isPetitParser description: 'Parser invalid'.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	stream := aCollection asPetitStream.
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	71	context := self context.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	72
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	73	result := aParser parse: stream withContext: context.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	aTargetObject isNil
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	ifTrue: [ self deny: result isPetitFailure ]
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	76	ifFalse: [ self assert: result equals: aTargetObject ].
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	77	self assert: context position = anInteger description: 'Parser accepted at wrong position'.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	^ result
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	assert: aParser parse: aCollection toToken: aStartInteger stop: aStopInteger
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82	^ self assert: aParser parse: aCollection toToken: aStartInteger stop: aStopInteger end: aCollection size
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85	assert: aParser parse: aParserObject toToken: aStartInteger stop: aStopInteger end: anEndInteger
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	\| token \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	87	token := self
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	88	assert: aParser
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	89	parse: aParserObject
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	90	to: nil
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	91	end: anEndInteger.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	self assert: (token isKindOf: PPToken).
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	93	self assert: token start equals: aStartInteger.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 318 diff changeset	94	self assert: token stop equals: aStopInteger.
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	^ token
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	! !
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	!PPAbstractParserTest class methodsFor:'documentation'!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	version
318 e0be8c3c3b97 moved Claus Gittinger <cg@exept.de> parents: 157 diff changeset	101	^ '$Header: /cvs/stx/stx/goodies/petitparser/tests/PPAbstractParserTest.st,v 1.2 2014-03-04 20:31:52 cg Exp $'
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	!
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	version_CVS
318 e0be8c3c3b97 moved Claus Gittinger <cg@exept.de> parents: 157 diff changeset	105	^ '$Header: /cvs/stx/stx/goodies/petitparser/tests/PPAbstractParserTest.st,v 1.2 2014-03-04 20:31:52 cg Exp $'
157 46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	! !
46f441ef84a7 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 03 Oct 2014 02:33:08 +0100
changeset 377	6112a403a52d
parent 318	e0be8c3c3b97
child 385	44a36ed4e484
permissions	-rw-r--r--