hg/stx-goodies-petitparser: analyzer/tests/PPSearcherTest.st@1d7503124bc8 (annotated)

210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/analyzer/tests' }"
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	PPAbstractParserTest subclass:#PPSearcherTest
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'searcher'
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitAnalyzer-Tests'
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	!PPSearcherTest methodsFor:'running'!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	setUp
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	searcher := PPSearcher new
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	! !
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!PPSearcherTest methodsFor:'testing'!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	testAnyPattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	matches: PPPattern any
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	23	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	24	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	25	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	26	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	27	result := searcher execute: $a asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	28	self assert: result size equals: 1.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	29	result := searcher execute: $a asParser star initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	30	self assert: result size equals: 2.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	31	result := searcher execute: $a asParser , $b asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	32	self assert: result size equals: 3
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	testClassPattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	\| result \|
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	37	searcher
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38	matches: (PPPattern class: PPLiteralObjectParser)
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	39	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	40	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	41	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	42	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	43	result := searcher execute: $a asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	44	self assert: result size equals: 1.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	self assert: (result allSatisfy: [ :each \| each class = PPLiteralObjectParser ]).
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	46	result := searcher execute: 'abc' asParser initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	48	result := searcher execute: #any asParser initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	50	result := searcher execute: $a asParser / #any asParser , $b asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	51	self assert: result size equals: 2.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52	self assert: (result allSatisfy: [ :each \| each class = PPLiteralObjectParser ])
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	testKindPattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	\| result \|
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	57	searcher
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	matches: (PPPattern kind: PPLiteralParser)
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	59	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	60	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	61	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	62	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	63	result := searcher execute: $a asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	64	self assert: result size equals: 1.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	self assert: (result allSatisfy: [ :each \| each class = PPLiteralObjectParser ]).
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	66	result := searcher execute: 'abc' asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	67	self assert: result size equals: 1.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	self assert: (result allSatisfy: [ :each \| each class = PPLiteralSequenceParser ]).
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	69	result := searcher execute: #any asParser initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	71	result := searcher execute: $a asParser / #any asParser , $b asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	72	self assert: result size equals: 2.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	self assert: (result allSatisfy: [ :each \| each class = PPLiteralObjectParser ])
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	testMatchesAny
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	searcher
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	79	matchesAnyOf: (Array with: $a asParser with: $b asParser)
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	80	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	81	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	82	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	83	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	84	result := searcher execute: $a asParser , $b asParser , $c asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	85	self assert: result size equals: 2.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	86	self assert: result first literal equals: $a.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	87	self assert: result last literal equals: $b
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	testMultiplePattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	matches: $a asParser
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	94	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	95	answer first add: parser.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	96	answer ].
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	matches: PPPattern any
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	99	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	100	answer second add: parser.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	101	answer ].
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	execute: $a asParser , $a asParser , $b asParser
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	104	initialAnswer: (Array with: OrderedCollection new with: OrderedCollection new).
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	105	self assert: result first size equals: 2.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	106	self assert: result first first literal equals: $a.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	107	self assert: result first last literal equals: $a.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	108	self assert: result last size equals: 2.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	109	self assert: result last first class equals: PPSequenceParser.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	110	self assert: result last last literal equals: $b
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	testNamePattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	\| result \|
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	115	searcher
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	matches: (PPPattern name: 'foo')
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	117	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	118	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	119	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	120	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	121	result := searcher execute: $a asParser initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	123	result := searcher execute: ($a asParser name: 'foo') initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	124	self assert: result size equals: 1.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	125	self assert: result first name equals: 'foo'.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	126	result := searcher execute: ($a asParser name: 'bar') , ($b asParser name: 'foo') initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	127	self assert: result size equals: 1.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	128	self assert: result first name equals: 'foo'
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	testNewPattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	self
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	should: [ PPPattern new ]
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	raise: Error
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137	testRecursivePattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	\| recursive \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	recursive := PPDelegateParser new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	recursive setParser: recursive.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	141	searcher matches: recursive do: [ :parser :answer \| parser ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	142	self assert: (searcher execute: recursive) equals: recursive.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	self assert: (searcher execute: $a asParser) isNil.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	self assert: (searcher execute: $a asParser / $b asParser star) isNil
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	testRepeatedPattern
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	\| pattern result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	matches: (pattern := PPPattern any) , pattern
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	151	do: [ :parser :answer \|
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	152	answer
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	153	add: parser;
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	154	yourself ].
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	155	result := searcher execute: $a asParser , $b asParser initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	157	result := searcher execute: $a asParser , $a asParser initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	158	self assert: result size equals: 1.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	159	result := searcher execute: $a asParser , ($a asParser , $b asParser) initialAnswer: OrderedCollection new.
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	160	self assert: result isEmpty.
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	161	result := searcher execute: $b asParser , ($a asParser , $a asParser) initialAnswer: OrderedCollection new.
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	162	self assert: result size equals: 1
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	! !
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	164
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	!PPSearcherTest methodsFor:'testing-copy'!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	testCopyMatchAction
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	old := $a asParser ==> [ :token \| $b ].
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	172	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	174	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	175
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	176	testCopyMatchDelegate
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178	old := $a asParser token trim.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	179	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	180	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	183	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	184
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	testCopyMatchEpsilon
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	old := nil asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	testCopyMatchFailure
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	old := PPFailingParser message: 'problem'.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	testCopyMatchList
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	old := $a asParser , $b asParser , $c asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	testCopyMatchLiteral
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	old := $a asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	testCopyMatchPluggable
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	old := [ :stream \| ] asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	testCopyMatchPredicate
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	old := #word asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	testCopyMatchPredicateSequence
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	old := 'foo' asParser caseInsensitive.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	testCopyMatchRecursiveDelegate
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	250	old := PPDelegateParser new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	251	old setParser: old.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	252	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	253	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	254	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	testCopyMatchRecursiveList
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	old := PPChoiceParser new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261	old setParsers: (Array with: old).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	testCopyMatchRepetition
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270	old := #word asParser star.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	273	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	275	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	276
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277	testCopyMatchRepetitionGreedy
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	278	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279	old := #word asParser starGreedy: #digit asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	282	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	testCopyMatchRepetitionLazy
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	old := #word asParser starLazy: #digit asParser.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	294
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	testCopyMatchRepetitionMinMax
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	296	\| old new \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297	old := #word asParser min: 5 max: 10.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	298	new := old copyInContext: Dictionary new.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	299	self assert: (old match: old inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	300	self assert: (old match: new inContext: Dictionary new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	301	self deny: (old == new).
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	302	! !
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304	!PPSearcherTest methodsFor:'testing-lists'!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	305
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	306	testListInfix
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	307	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	308	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	309	matches: PPListPattern any , $a asParser , PPListPattern any
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	310	do: [ :parser :answer \| true ].
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	311
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	312	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	313	execute: $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	314	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	315	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	316
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	317	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	318	execute: $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	319	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	320	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	321
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	322	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	execute: $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	327	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	328	execute: $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	329	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	330	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	331
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	332	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	333	execute: $a asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	334	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	335	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	336
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	337	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	338	execute: $b asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	339	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	341
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	342	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	343	execute: $a asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	345	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	346
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	347	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	348	execute: $a asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	349	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	350	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	352	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	353	execute: $b asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	354	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	355	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	356
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	357	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	358	execute: $a asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	359	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	360	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	361
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	362	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	363	execute: $b asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	364	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	365	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	366
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	367	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	368	execute: $b asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370	self deny: result
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	371	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	372
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	373	testListPostfix
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	374	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	375	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	376	matches: PPListPattern any , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	377	do: [ :parser :answer \| true ].
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	378
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	379	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	380	execute: $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	381	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	382	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	383
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	384	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	385	execute: $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	386	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	387	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	388
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	389	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	390	execute: $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	391	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	392	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	393
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	394	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	395	execute: $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	396	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	397	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	398
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	399	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	400	execute: $a asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	401	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	402	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	405	execute: $b asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410	execute: $a asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	411	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415	execute: $a asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	417	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	418
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	420	execute: $b asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	423
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	425	execute: $a asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	426	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	427	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	428
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	429	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	430	execute: $b asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	431	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	432	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	433
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	434	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	execute: $b asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437	self assert: result
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	testListPrefix
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441	\| result \|
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	matches: $a asParser , PPListPattern any
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444	do: [ :parser :answer \| true ].
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447	execute: $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	452	execute: $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	453	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	454	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	455
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	456	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	457	execute: $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	458	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	459	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	460
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	461	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	462	execute: $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	463	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	464	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	465
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	466
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	467
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	468	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	469	execute: $a asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	470	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474	execute: $b asParser , $a asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	execute: $a asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484	execute: $a asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	execute: $b asParser , $b asParser , $a asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	execute: $a asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	self assert: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	498	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	499	execute: $b asParser , $a asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	500	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	501	self deny: result.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	502
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	503	result := searcher
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	504	execute: $b asParser , $b asParser , $b asParser
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	initialAnswer: false.
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	self deny: result
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	507	! !
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	508
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	509	!PPSearcherTest class methodsFor:'documentation'!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	510
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	511	version
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	512	^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/tests/PPSearcherTest.st,v 1.1 2014-03-04 15:43:09 cg Exp $'
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	!
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	version_CVS
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516	^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/tests/PPSearcherTest.st,v 1.1 2014-03-04 15:43:09 cg Exp $'
402 1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	517	!
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	518
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	519	version_HG
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	520
1d7503124bc8 Reverted back change from `assert: x equals: y` to assert: (x = u). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 210 diff changeset	521	^ '$Changeset: <not expanded> $'
210 d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	! !
d9e67752b114 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	523

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 01 Nov 2014 00:12:10 +0000
changeset 402	1d7503124bc8
parent 210	d9e67752b114
child 425	0a5c4929af56
permissions	-rw-r--r--