hg/stx-goodies-smallsense: SmallSenseParserTests.st@547d48a49dbd (annotated)

32 658f47bc231e Code moved to package jv:smallsense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	1	"{ Package: 'jv:smallsense' }"
0 893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	SmallSenseTestCase subclass:#SmallSenseParserTests
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:''
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'SmallSense-Tests'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!SmallSenseParserTests methodsFor:'parseTests'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	test1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	\|u w b c d tokenValue val uu bb cc dd \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	c:=u floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	d floor:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	d floor:3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	self rememberSymbolUsed:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	array:=#( 3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	val := ConstantNode type:tokenType value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	[u== #Symbol or:[u=3]]ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	"Created: / 21-12-2010 / 23:07:13 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	"Modified: / 22-02-2011 / 12:35:19 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	test10
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert:(collector tree nextStatement nextStatement) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	self assert:(collector tree expression expression) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	self assert:(collector tree nextStatement expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	self assert:(collector tree nextStatement expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	assert:(collector tree nextStatement expression expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	"Created: / 15-02-2011 / 15:23:50 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	"Modified: / 18-02-2011 / 16:49:19 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	test11
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	u := 3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	self assert:(collector tree nextStatement nextStatement nextStatement) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	self assert:(collector tree expression variable name= 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	self assert:(collector tree expression expression) isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	self assert:(collector tree expression expression receiver) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	self assert:(collector tree expression expression receiver value=3) .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	self assert:(collector tree expression expression selector asString)='b'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	self assert:(collector tree expression expression args isNil ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	self assert:(collector tree nextStatement expression) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert:(collector tree nextStatement expression errorToken)= ':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert:(collector tree nextStatement nextStatement expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	self assert:(collector tree nextStatement nextStatement expression name)='u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	"Created: / 15-02-2011 / 15:24:01 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	"Modified: / 18-02-2011 / 16:58:56 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	test12
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	: 3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	self assert:(collector tree nextStatement nextStatement) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	self assert:(collector tree expression) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	self assert:(collector tree expression errorToken =':').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	self assert:(collector tree nextStatement expression) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	self assert:(collector tree nextStatement expression value=3).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	"Created: / 15-02-2011 / 15:25:36 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	"Modified: / 18-02-2011 / 17:08:54 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	test13
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	u := 3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	assert:(collector tree nextStatement nextStatement nextStatement) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	self assert:(collector tree expression variable name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	self assert:(collector tree expression expression) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	self assert:(collector tree expression expression value =3).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	self assert:(collector tree nextStatement expression) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	self assert:(collector tree nextStatement expression errorToken) = ':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	assert:(collector tree nextStatement nextStatement expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	assert:(collector tree nextStatement nextStatement expression name) = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	"Created: / 15-02-2011 / 16:48:11 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	"Modified: / 17-03-2011 / 17:21:48 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	test14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	u := 3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	assert:(collector tree nextStatement nextStatement nextStatement) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self assert:(collector tree expression variable name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	self assert:(collector tree expression expression) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	self assert:(collector tree expression expression value =3).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	self assert:(collector tree nextStatement expression) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	self assert:(collector tree nextStatement expression errorToken) = ':'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	assert:(collector tree nextStatement nextStatement expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	assert:(collector tree nextStatement nextStatement expression name) = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	"Created: / 15-02-2011 / 17:03:42 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	"Modified: / 18-02-2011 / 19:52:39 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	test15
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	\| b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	u := 3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	assert:(collector tree nextStatement ) isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	self assert:(collector tree expression variable name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	self assert:(collector tree expression expression) isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	self assert:(collector tree expression expression receiver value =3).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	self assert:(collector tree expression expression receiver ) isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	self assert:(collector tree expression expression selector )= #=.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	self assert:(collector tree expression expression args size=1 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	self assert:(collector tree expression expression arg ) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	self assert:(collector tree expression expression arg name='u' ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	"Created: / 15-02-2011 / 17:04:33 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	"Modified: / 18-02-2011 / 19:56:28 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	test19
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	\|b c\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	u := 3 u:=
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	c u floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	self assert:collector tree expression isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	self assert:collector tree nextStatement nextStatement expression isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	"Created: / 15-02-2011 / 18:15:51 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	"Modified: / 18-02-2011 / 20:00:13 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	test2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	u :'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	self assert:(collector tree expression name ='u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	self assert:(collector tree expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	self assert:(collector tree nextStatement expression isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	self assert: collector tree nextStatement expression errorToken=':'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	"Created: / 09-02-2011 / 20:54:42 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	"Modified: / 18-02-2011 / 15:04:33 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	test24
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	\|u w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self : '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	self assert:collector tree expression isSelf.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	self assert:collector tree nextStatement expression errorToken=':'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	"Created: / 15-02-2011 / 18:37:23 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	"Modified: / 18-02-2011 / 20:02:46 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	test25
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	" collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	\|u w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	self :=5 '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self assert:collector tree expression isSelf.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	self assert:collector tree nextStatement nextStatement expression isConstant."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	"Created: / 15-02-2011 / 18:37:56 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	"Modified: / 28-02-2011 / 17:28:20 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	test26
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	\|u w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	false :=5 '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	self assert:collector tree expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	self assert:collector tree nextStatement nextStatement expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	"Created: / 15-02-2011 / 19:50:17 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	"Modified: / 18-02-2011 / 20:05:19 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	test27
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	\|u w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	nil :=5 '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	self assert:collector tree expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	self assert:collector tree nextStatement nextStatement expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	"Created: / 15-02-2011 / 19:51:02 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	"Modified: / 18-02-2011 / 20:05:32 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	test28
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	\|d w tokenValue\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	d floor:3 b:u
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	self rememberSymbolUsed:tokenValue. '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	"Created: / 15-02-2011 / 19:52:23 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	"Modified: / 18-02-2011 / 20:06:33 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	test29
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	\|d u w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	d floor:3 b:u
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	self '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	"Created: / 15-02-2011 / 19:53:15 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	"Modified: / 18-02-2011 / 20:06:46 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	test3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	u ='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	self assert:(collector tree expression) isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	self assert:(collector tree expression selector) == #=.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	self assert:(collector tree expression args size) = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	self assert:(collector tree expression arg) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	self assert:(collector tree expression arg errorToken = 'EOF').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	"Created: / 11-02-2011 / 15:32:58 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	"Modified: / 18-02-2011 / 15:20:22 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	test30
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	\|array \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	array:=#( 3 4 5 6 ). '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	"Created: / 15-02-2011 / 19:54:10 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	test31
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	\|array tokenValue\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	array:=( 3 4 5 6 ). '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	self assert:collector tree nextStatement nextStatement expression isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	"Created: / 16-02-2011 / 15:51:47 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	"Modified: / 18-02-2011 / 20:15:19 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	test32
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	[u== #Symbol or:[u=3]]ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	"Created: / 16-02-2011 / 15:54:07 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	test33
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	u== #Symbol or:[u=3]]ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	self assert:collector tree expression receiver isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	self assert:collector tree expression receiver receiver isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	self assert:collector tree expression receiver receiver name = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	self assert:collector tree expression receiver selector = #'=='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	self assert:collector tree expression receiver args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	self assert:collector tree expression receiver arg isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self assert:collector tree expression receiver arg value = #Symbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	self assert:collector tree expression selector = #or:.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	self assert:collector tree expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	self assert:collector tree expression arg1 isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	self assert:collector tree expression arg1 statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	self assert:collector tree nextStatement expression errorToken = ']'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	assert:collector tree nextStatement nextStatement expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	assert:collector tree nextStatement nextStatement expression receiver
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	assert:collector tree nextStatement nextStatement expression receiver
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	errorToken = 'Keyword'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	assert:collector tree nextStatement nextStatement expression selector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	= #ifTrue:.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	assert:collector tree nextStatement nextStatement expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	assert:collector tree nextStatement nextStatement expression arg1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	"Created: / 16-02-2011 / 15:55:49 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	"Modified: / 18-02-2011 / 20:52:03 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	test34
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	\|array \|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	array:=#( 3 4 5 6 . '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	self assert:collector tree nextStatement nextStatement expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	"Created: / 16-02-2011 / 16:09:35 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	"Modified: / 18-02-2011 / 20:16:54 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	test35
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	[u== #Symbol or:u=3]]ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	self assert:collector tree expression isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	self assert:collector tree expression statements expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	self assert:collector tree expression statements expression receiver isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	self assert:collector tree expression statements expression receiver receiver isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	self assert:collector tree expression statements expression receiver receiver name = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	self assert:collector tree expression statements expression receiver selector = #'=='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	self assert:collector tree expression statements expression receiver args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	self assert:collector tree expression statements expression receiver arg isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	self assert:collector tree expression statements expression receiver arg value = #Symbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	self assert:collector tree expression statements expression selector = #or:.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	self assert:collector tree expression statements expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	self assert:collector tree expression statements expression arg1 isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	self assert:collector tree nextStatement expression errorToken = ']'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	assert:collector tree nextStatement nextStatement expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	assert:collector tree nextStatement nextStatement expression receiver
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	assert:collector tree nextStatement nextStatement expression receiver
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	errorToken = 'Keyword'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	assert:collector tree nextStatement nextStatement expression selector
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	= #ifTrue:.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	assert:collector tree nextStatement nextStatement expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	assert:collector tree nextStatement nextStatement expression arg1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	"Created: / 16-02-2011 / 16:47:18 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	"Modified: / 18-02-2011 / 20:56:11 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515	test36
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	[u== #Symbol ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	self assert:collector tree expression isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	self assert:collector tree expression statements expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	self assert:collector tree expression statements expression receiver isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	self assert:collector tree expression statements expression receiver receiver isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	self assert:collector tree expression statements expression receiver receiver name = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	self assert:collector tree expression statements expression receiver selector = #'=='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	self assert:collector tree expression statements expression receiver args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	self assert:collector tree expression statements expression receiver arg isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	self assert:collector tree expression statements expression receiver arg value = #Symbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	self assert:collector tree expression statements expression selector = #ifTrue: .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	self assert:collector tree expression statements expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	self assert:collector tree expression statements expression arg1 isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	self assert:collector tree expression statements expression arg1 statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	"Created: / 16-02-2011 / 16:48:07 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	"Modified: / 18-02-2011 / 21:13:22 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	test37
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	[u== #Symbol) ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	self assert:collector tree expression isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	assert:collector tree expression statements expression isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	assert:collector tree expression statements expression receiver name = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	assert:collector tree expression statements expression selector = #'=='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	self assert:collector tree expression statements expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	assert:collector tree expression statements expression arg1 value = #Symbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	assert:collector tree expression statements nextStatement expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	assert:collector tree expression statements nextStatement expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576	errorToken = ')'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	assert:collector tree expression statements nextStatement nextStatement
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	assert:collector tree expression statements nextStatement nextStatement expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	receiver isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	assert:collector tree expression statements nextStatement nextStatement expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	receiver errorToken
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	= 'Keyword'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	assert:collector tree expression statements nextStatement nextStatement expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	selector = #ifTrue:.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	assert:collector tree expression statements nextStatement nextStatement expression args
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	assert:collector tree expression statements nextStatement nextStatement expression arg1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	assert:collector tree expression statements nextStatement nextStatement expression arg1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599	isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	"Created: / 16-02-2011 / 17:21:06 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	"Modified: / 18-02-2011 / 21:25:27 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	test38
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	[:=
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	self assert:collector tree expression isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	self assert:collector tree expression statements expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	self assert:collector tree expression statements expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621	"Created: / 18-02-2011 / 11:55:35 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	"Modified: / 18-02-2011 / 21:40:40 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	test39
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	\|uu w\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	:=3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	self assert:collector tree expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	self assert:collector tree expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	self assert:collector tree nextStatement expression isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	self assert:collector tree nextStatement expression value=3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	"Created: / 18-02-2011 / 17:11:24 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	test4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	u 3'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	self assert:(collector tree expression) isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	self assert:(collector tree expression selector asString) = '3'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655	"Created: / 15-02-2011 / 14:13:48 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	"Modified: / 18-03-2011 / 22:10:14 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	test40
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	\|array tokenValue\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	array:=( 3 4 5 6. '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	self assert:collector tree nextStatement nextStatement expression isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	"Created: / 18-02-2011 / 20:17:31 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	test41
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	\|array tokenValue\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	array:=( 3 4 5 6 :=u '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	self assert:collector tree nextStatement nextStatement expression isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689	self assert:collector tree nextStatement nextStatement nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	self assert:collector tree nextStatement nextStatement nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	self assert:collector tree nextStatement nextStatement nextStatement nextStatement expression isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693	"Created: / 18-02-2011 / 20:35:35 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	test42
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	\|array tokenValue\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701	self rememberSymbolUsed:tokenValue
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	array:= 3 4 5 6 :=u) '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	self assert:collector tree expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	self assert:collector tree nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	self assert:collector tree nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	self assert:collector tree nextStatement nextStatement expression isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	self assert:collector tree nextStatement nextStatement nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	self assert:collector tree nextStatement nextStatement nextStatement expression errorToken=':='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711	self assert:collector tree nextStatement nextStatement nextStatement nextStatement expression isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	self assert:collector tree nextStatement nextStatement nextStatement nextStatement nextStatement expression isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	self assert:collector tree nextStatement nextStatement nextStatement nextStatement nextStatement expression errorToken=')'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	"Created: / 18-02-2011 / 20:37:17 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	test43
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	\|uu w b\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	[u== #Symbol ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	b:=3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	self assert:collector tree expression isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	self assert:collector tree expression statements expression isMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	self assert:collector tree expression statements expression receiver isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	self assert:collector tree expression statements expression receiver receiver isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735	self assert:collector tree expression statements expression receiver receiver name = 'u'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	self assert:collector tree expression statements expression receiver selector = #'=='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	self assert:collector tree expression statements expression receiver args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	self assert:collector tree expression statements expression receiver arg isConstant.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	self assert:collector tree expression statements expression receiver arg value = #Symbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	self assert:collector tree expression statements expression selector = #ifTrue: .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	self assert:collector tree expression statements expression args size = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	self assert:collector tree expression statements expression arg1 isBlock.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	self assert:collector tree expression statements expression arg1 statements expression
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	"Created: / 18-02-2011 / 21:16:10 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	test44
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	\|b c\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754	u :=b b: u:c
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758	self assert:collector tree expression isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	"Created: / 20-02-2011 / 18:54:11 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763	test5
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	767	u +'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	768	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	769	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	770	self assert:(collector tree expression) isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	771	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	772	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	773	self assert:(collector tree expression selector) isSymbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774	self assert:(collector tree expression selector asString) = '+'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775	self assert:(collector tree expression args size) = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	self assert:(collector tree expression arg) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	self assert:(collector tree expression arg errorToken = 'EOF').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779	"Created: / 15-02-2011 / 15:18:25 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780	"Modified: / 18-02-2011 / 15:31:37 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	test6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	u +.'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	self assert:(collector tree expression) isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	793	self assert:(collector tree expression selector) isSymbol.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	self assert:(collector tree expression selector asString) = '+'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795	self assert:(collector tree expression args size) = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796	self assert:(collector tree expression arg) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797	self assert:(collector tree expression arg errorToken = '.').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799	"Created: / 15-02-2011 / 15:19:08 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	"Modified: / 18-02-2011 / 15:32:56 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803	test7
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	807	u 3.'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	809	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	810	self assert:(collector tree expression) isUnaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	self assert:(collector tree expression selector asString) = '3'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815	"Created: / 15-02-2011 / 15:19:22 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	816	"Modified: / 18-03-2011 / 22:10:21 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	817	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	test8
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	823	u =.'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	824	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	self assert:(collector tree expression) isBinaryMessage.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827	self assert:(collector tree expression receiver name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828	self assert:(collector tree expression receiver) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	self assert:(collector tree expression selector) == #'='.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830	self assert:(collector tree expression args size) = 1.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831	self assert:(collector tree expression arg) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	self assert:(collector tree expression arg errorToken = '.').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	"Created: / 15-02-2011 / 15:19:38 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835	"Modified: / 18-02-2011 / 15:34:13 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	test9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842	u :.'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	self assert:(collector tree expression name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	self assert:(collector tree expression) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	847	self assert:(collector tree nextStatement expression isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	848	self assert:collector tree nextStatement expression errorToken = ':'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849	self assert:collector tree nextStatement nextStatement isNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851	"Created: / 15-02-2011 / 15:19:52 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	"Modified: / 18-02-2011 / 15:35:42 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	853	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855	testBadAssignment
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	\|collector\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858	collector := self doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	u := '.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	860	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862	self assert:(collector tree expression) isAssignment.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	self assert:(collector tree expression variable name = 'u').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	self assert:(collector tree expression variable) isVariable.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	865	self assert:(collector tree expression expression) isErrorNode.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866	self assert:(collector tree expression expression errorToken = 'EOF').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868	"Modified: / 18-02-2011 / 15:39:33 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	! !
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	!SmallSenseParserTests class methodsFor:'documentation'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873	version_SVN
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	^ '$Id: SmallSenseParserTests.st 7694 2011-04-04 19:53:25Z vranyj1 $'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875	! !
39 748389119d0a Initial support for per-language edit support. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	876

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 02 Aug 2013 16:40:58 +0100
changeset 47	547d48a49dbd
parent 39	748389119d0a
permissions	-rw-r--r--