hg/stx-goodies-petitparser: islands/tests/PPIslandTest.st@4751c407bb40 (annotated)

387 e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/islands/tests' }"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 389 diff changeset	3	"{ NameSpace: Smalltalk }"
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 389 diff changeset	4
387 e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PPAbstractParserTest subclass:#PPIslandTest
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'result context'
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitIslands-Tests'
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	!PPIslandTest methodsFor:'as yet unclassified'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	context
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	context ifNil: [ ^ super context ].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ context
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	setUp
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	super setUp.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	context := nil
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	!PPIslandTest methodsFor:'parse support'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	identifier
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	^ ((#letter asParser / $# asParser), (#letter asParser / #digit asParser) star) flatten
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	island: parser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	^ self islandInstance island: parser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	island: parser water: water
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	^ self islandInstance
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	island: parser;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	water: water;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	yourself
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	islandClass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	^ PPIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	islandInstance
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	^ self islandClass new
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	nestedBlock
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	\| blockIsland block nilIsland \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	blockIsland := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	nilIsland := self nilIsland.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	block := PPDelegateParser new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	block setParser: (${ asParser, (blockIsland plus / nilIsland), $} asParser).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	block name: 'block'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	blockIsland island: block.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	blockIsland name: 'block island'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	^ block
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	nilIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	\| nilIsland \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	nilIsland := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	nilIsland island: nil asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	nilIsland name: 'nil island'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	^ nilIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	!PPIslandTest methodsFor:'parsing'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	assert: parser parse: input
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	result := super assert: parser parse: input
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	!PPIslandTest methodsFor:'testing'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	testBlock
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	\| block \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	block := self nestedBlock.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	self assert: block parse: '{}'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	self assert: block parse: '{ }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	self assert: block parse: '{ { } }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	self assert: block parse: '{ { {{} } } }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	self assert: result isCollection.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	self assert: result second first second first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	self assert: result second first second second first second first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	self assert: result second first second second first second third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	self assert: result second first second third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	self assert: block parse: '{ {
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	{{} }
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	} }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	self assert: result isCollection.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	self assert: result second first second first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	self assert: result second first second second first second first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	self assert: result second first second second first second third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	self assert: result second first second third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	testBoundary
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	\| p end body start \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	"use non-trivial end-of-class a complex end"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	end := 'end' asParser trimBlanks, 'of' asParser trimBlanks, 'class' asParser trimBlanks ==> [:args \| #eoc].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	body := self nilIsland.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	start := 'class' asParser trim, self identifier.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	p := start, body, end.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	self assert: p parse: 'class Foo end of class'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	self assert: result size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	self assert: result second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	self assert: p parse: 'class Foo .... end of class'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	self assert: result size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	self assert: result second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	self assert: p parse: 'class Foo .... end ... end of class'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	self assert: result size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	self assert: result second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	self assert: p parse: 'class Foo .... end of ... end of class'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	self assert: result size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	self assert: result second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	testBoundary2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	\| epilog id p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	"use optional boundary"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	epilog := 'end' asParser optional.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	id := self identifier.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	p := ((self island: id), epilog) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	self assert: p parse: '...foo..end...bar...end'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	self assert: result first first second = 'foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	self assert: result first second = 'end'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	self assert: result second first second = 'bar'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	self assert: result second second = 'end'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	testIslandAfterIslandPlus
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	\| island2 islandParser2 island1 islandParser1 parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	island1 := 'aa' asParser, 'bb' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	islandParser1 := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	islandParser1 island: island1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	island2 := 'cc' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	islandParser2 := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	islandParser2 island: island2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	parser := (islandParser1, islandParser2) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	result := islandParser1 parse: '__ aabb __ cc __'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	testIslandAfterIslandPlus2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	\| island2 islandParser2 island1 islandParser1 parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	island1 := 'aa' asParser, 'bb' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	islandParser1 := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	islandParser1 island: island1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	island2 := 'cc' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	islandParser2 := self islandInstance.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	islandParser2 island: island2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	parser := (islandParser1, islandParser2) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	result := islandParser1 parse: '__ aaxx __ cc __'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	self assert: result isPetitFailure.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	testIslandDetection
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	\| island parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	island := 'class' asParser, self identifier trim, 'endclass' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	parser := self island: island.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	self assert: parser parse: 'class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	self assert: result second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	self assert: parser parse: '/comment/ class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	self assert: result second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	self assert: parser parse: '/comment class Bar / class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	self assert: result second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	self assert: parser parse: '/comment class Bar / class Foo endclass //something more'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	self assert: result second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	self assert: parser parse: '/comment class Bar endclass / class Foo endclass //something more'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	self assert: result second second = 'Bar'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	testIslandPlus
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	\| island parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	island := self island: 'X' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	parser := island plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	self assert: parser parse: '....X....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	self assert: result size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self assert: parser parse: '...X...X...XX'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	self assert: result size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	self assert: parser fail: '.....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	testIslandPlus2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	\| island parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	island := self island: ('class' asParser, self identifier trim).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	parser := island plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	self assert: parser parse: '....class Foo....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	self assert: result size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	self assert: result first second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	self assert: parser parse: '....class . class Foo....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert: result size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self assert: result first second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	self assert: parser parse: '....class . class Foo class Bar....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	self assert: result first second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	self assert: result second second second = 'Bar'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	self assert: parser fail: '.....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	testIslandSequence
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	\| parser a b c \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	"Island sequence will never cross the boundery of 'c'"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	a := 'a' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	b := 'b' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	c := 'c' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	parser := (self island: a), (self island: b), c.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	self assert: parser parse: '..a...b...c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	self assert: parser fail: '..a..c...b..c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	self assert: parser fail: '..c..a.....b..c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	testIslandSequence2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	\| p a b \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	a := self island: ('a' asParser plus).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	a name: 'a island'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	b := self island: 'b' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	b name: 'b island'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	p := a optional, (b / self nilIsland).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	self assert: p parse: 'a'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self assert: result second second = nil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	self assert: p parse: '..ab'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	self assert: p parse: 'a..b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	self assert: p parse: 'ab...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	self assert: p parse: '...a...b...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	self assert: p parse: '...a...b...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	self assert: result first notNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	self assert: p end parse: '...b...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	self assert: result first isNil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	self assert: result second second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	testIslandSequence3
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	\| parser body class extends \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	class := self island: 'class' asParser trim, self identifier trim.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	extends := self island: 'extends' asParser trim, self identifier trim.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	body := self island: self nestedBlock.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	parser := (class, extends optional, body) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	self assert: parser parse: '
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	/* lorem ipsum */
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	class Foo { whatever }
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	// something more
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	class Bar extends Zorg { blah blah bla }
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	// this is the end'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	testIslandStar
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	\| p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	p := (self island: 'a' asParser) star, 'b' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	self assert: p parse: 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	self assert: result first size = 0.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	self assert: p parse: 'ab'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	self assert: result first size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	self assert: p parse: 'aab'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	self assert: p parse: '...aab'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	self assert: p parse: '...aa...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	self assert: p parse: '...a...a...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	self assert: p parse: '...a...a...aa...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	self assert: result first size = 4.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	"Thats the question, if I want this:"
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	self assert: p fail: '...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	testIslandStar2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	\| p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	p := (self island: 'a' asParser) star, 'b' asParser optional.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	self assert: p parse: 'aa'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	self assert: p parse: '....aa'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	self assert: p parse: '...a...a...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	self assert: p parse: '...a...a...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	self assert: result second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	testIslandStar3
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	\| p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	p := (self island: 'a' asParser) star, (self island: nil asParser).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	self assert: p parse: '....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	self assert: result first size = 0.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	self assert: p parse: 'aa'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	self assert: p parse: '....aa'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	self assert: p parse: '...a...a...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	self assert: p parse: '...a...a...b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	self assert: result first size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	self assert: result second second = nil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	testNestedIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	\| nestedIsland before after topIsland \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	nestedIsland := self island: 'X' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	before := 'before' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	after := 'after' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	topIsland := self island: (before, nestedIsland, after).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	self assert: nestedIsland parse: 'before...X...ater'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	self assert: topIsland parse: 'beforeXafter'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	self assert: topIsland parse: '....before..X..after....'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	self assert: result second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	self assert: result second second size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475	self assert: result second second second = 'X'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	self assert: topIsland parse: '....X....before...X....after'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	self assert: topIsland parse: '....before.......after....before..X...after'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	self assert: topIsland fail: '....before.......after...'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	self assert: topIsland fail: '....before.......after...X'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	self assert: topIsland fail: '....before.......after...X...after'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	testNilIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	\| nilIsland p \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	nilIsland := self nilIsland.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	p := ${ asParser, nilIsland, $} asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	self assert: p parse: '{}'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	self assert: result isCollection.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	self assert: p parse: '{ }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	self assert: result isCollection.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	self assert: p parse: '{ ... }'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	self assert: result isCollection.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	self assert: result first = ${.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	self assert: result third = $}.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	testOptionalIsland
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	\| island parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	island := self island: ('a' asParser / 'b' asParser optional).
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	parser := island, 'c' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	self assert: parser parse: '....a....b...c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	self assert: result first second = 'a'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	self assert: result second = 'c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	self assert: parser parse: '....d....b...c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	self assert: result first second = 'b'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	self assert: result second = 'c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	self assert: parser parse: '....d....d...c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	self assert: result first second = nil.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	self assert: result second = 'c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	self assert: parser parse: '...c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	!PPIslandTest methodsFor:'tests - complex'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	testClass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	\| text file class \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	text := '
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	// some comment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	namespace cde {
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	public class Foo
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	public class 123 // invalid class
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	public struct {}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	class bar endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	class Zorg endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	class := ('public' asParser trim optional, 'class' asParser trim, self identifier, 'endclass' asParser trim)
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	==> [:t \| t third] .
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559	file := ((self island: class) ==> [:t \| t second ]) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	result := file parse: text.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	self assert: result size = 3.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	self assert: result first = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	self assert: result second = 'bar'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	self assert: result third = 'Zorg'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	testFile
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	\| text using imports class file \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	text := '
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	using a.b.c;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	using c.d.e;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	// some comment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	namespace cde {
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	public class Foo
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	public class 123 // invalid class
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	public struct {}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	class bar endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	using := 'using' asParser trim, (self identifier, ('.' asParser, self identifier) star) flatten ==> [:t \| t second].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	imports := (self island: using) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	class := ('public' asParser trim optional, 'class' asParser trim, self identifier, 'endclass' asParser trim)
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	==> [:t \| t third] .
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	file := imports, ((self island: class) ==> [:t \| t second ]) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	result := file parse: text.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	testFile2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	\| text using imports class file \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	text := '
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	using a.b.c;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	using c.d.e;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	// some comment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	namespace cde {
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	class Foo
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	public class 123 // invalid class
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	public struct {}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	class bar endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	using := 'using' asParser trim, (self identifier, ('.' asParser, self identifier) star) flatten ==> [:t \| t second].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621	imports := (self island: using) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	class := ('public' asParser trim optional, 'class' asParser trim, self identifier, 'endclass' asParser trim)
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	==> [:t \| t third] .
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	file := imports, ((self island: class) ==> [:t \| t second ]) plus.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	result := file parse: text.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	self assert: result isPetitFailure not.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	testImports
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	\| text using imports \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	text := '
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	/** whatever */
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	using a.b.c;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	// another comment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	using c.d.e;
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	// some comment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	namespace cde {
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642	}
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	using := 'using' asParser trim, (self identifier, ('.' asParser, self identifier) star) flatten ==> [:t \| t second].
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646	imports := ((self island: using) ==> [:t \| t second ]) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	result := imports parse: text.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	self assert: result first = 'a.b.c'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	self assert: result second = 'c.d.e'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655	!PPIslandTest methodsFor:'tests - water objects'!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	multilineCommentParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	^ '/' asParser, (#any asParser starLazy: '/' asParser), '*/' asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	singleCommentParser
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	\| nl \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	nl := #newline asParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	^ '//' asParser, (#any asParser starLazy: nl), nl.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	testMultilineComment
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	\| parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	parser := self multilineCommentParser.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	self assert: parser parse: '/* hello there */'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	self assert: parser parse: '/* class Bar endclass */'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	testWaterObjects
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	\| parser \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	context := PPContext new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	parser := (self island: ('class' asParser, self identifier trim, 'endclass' asParser ==> #second)) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	self assert: parser parse: ' /* hello there */ class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	self assert: result size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	self assert: result first second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	context := PPContext new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	self assert: parser parse: ' /* class Bar endclass */ class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	self assert: result first second = 'Bar'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	self assert: result second second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	context := PPContext new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	parser := (self island: ('class' asParser, self identifier trim, 'endclass' asParser ==> #second) water: self multilineCommentParser / #any asParser) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693	self assert: parser parse: ' /* class Bar endclass */ class Foo endclass'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	self assert: result size = 1.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	self assert: result first second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	!
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	testWaterObjects2
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699	\| parser source \|
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	context := PPContext new.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	parser := (self island: ('class' asParser, self identifier trim, 'endclass' asParser ==> #second)
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703	water: self multilineCommentParser / self singleCommentParser / #any asParser) star.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	source := ' /* class Bar endclass */
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	class Foo
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	/*
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	class Borg
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711	*/
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	// class Qwark endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	class Zorg
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714	endclass
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717	self assert: parser parse: source.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	self assert: result size = 2.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	self assert: result first second = 'Foo'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	self assert: result second second = 'Zorg'.
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	! !
e2b2ccaa4de6 Commited a island parser support (MC package PetitIslands) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 12 May 2015 01:24:03 +0100
changeset 459	4751c407bb40
parent 389	009c2e13973c
permissions	-rw-r--r--