hg/stx-goodies-smallsense: SmallSenseRecognizerTests.st@748389119d0a (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:#SmallSenseRecognizerTests
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	!SmallSenseRecognizerTests methodsFor:'RecognizerTest'!
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	testRecognizer1
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	\| ahoj\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	^self.
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	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	recognize:2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	position:2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	self assert:(foundCollection objectNameCollection size > 17).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	"Created: / 04-03-2011 / 12:55:37 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	"Modified: / 17-03-2011 / 18:45:41 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	testRecognizer10
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	\|collector recognizer foundCollection\|
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	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	c
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	position:7
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	self assert:(foundCollection objectNameCollection size > 18).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	"Created: / 07-03-2011 / 19:27:26 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	"Modified: / 17-03-2011 / 18:49:13 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	testRecognizer11
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	c fl
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	position:7
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	self assert:(foundCollection objectNameCollection size > 18).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	"Created: / 07-03-2011 / 19:34:06 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	"Modified: / 17-03-2011 / 18:50:27 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	testRecognizer12
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	c fl:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	dd floor:3 b:uu.
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	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	]
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	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	position:12
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	self assert:(foundCollection objectNameCollection size > 48).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	"Created: / 07-03-2011 / 19:39:40 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	"Modified: / 06-04-2011 / 19:04:40 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	testRecognizer13
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	c fl:[# >
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	position:14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self assert:(foundCollection objectNameCollection size > 48).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	"Created: / 07-03-2011 / 19:40:28 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	"Modified: / 06-04-2011 / 19:04:55 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	testRecognizer14
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	c fl:[# > he
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	position:18
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	self assert:(foundCollection objectNameCollection size = 3).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	"Created: / 07-03-2011 / 19:43:01 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	"Modified: / 06-04-2011 / 19:05:34 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	!
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	testRecognizer15
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
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	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	c fl:[# > he ah
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	dd do:[:w\|w seduce.
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	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	position:23
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert:(foundCollection objectNameCollection size > 48).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	self assert:(foundNode beforeStatement isNil)."
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: / 07-03-2011 / 19:55:35 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	"Modified: / 06-04-2011 / 19:05:44 / 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	testRecognizer16
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	recognize:2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	position:6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	self assert:(foundCollection objectNameCollection size >= self class selectors size).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	"Created: / 04-04-2011 / 14:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	"Modified: / 06-04-2011 / 19:05:56 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	testRecognizer2
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	\| ahoj\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	u
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	position:7
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	self assert:(foundCollection objectNameCollection size > 92).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	"Created: / 04-03-2011 / 16:23:04 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	"Modified: / 17-03-2011 / 18:46:09 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	testRecognizer3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	helper
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	position:12
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	self assert:(foundCollection objectNameCollection size =1).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	"Created: / 04-03-2011 / 17:40:05 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	"Modified: / 17-03-2011 / 18:47:48 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	!
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	testRecognizer4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475	\|collector recognizer foundCollection\|
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	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	10
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	position:8
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	self assert:(foundCollection objectNameCollection size >= 142).
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	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	"Created: / 07-03-2011 / 18:14:26 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	"Modified: / 17-03-2011 / 18:41:05 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522	testRecognizer5
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	\|collector recognizer foundCollection\|
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	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	dd do:[:w\|w seduce.
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	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	position:10
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	self assert:(foundCollection objectNameCollection size >= self class selectors size).
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:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	"Created: / 07-03-2011 / 18:33:31 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	"Modified: / 04-04-2011 / 14:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	"Modified: / 06-04-2011 / 19:06:08 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571	testRecognizer6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	super
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	]
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	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	position:11
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	self assert:(foundCollection objectNameCollection size >= 503).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	self assert:(foundNode beforeStatement isNil)."
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	"Created: / 07-03-2011 / 18:35:35 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	"Modified: / 08-04-2011 / 00:06:23 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	testRecognizer7
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	:
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	dd floor:3 b:uu.
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	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644	^self.
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	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	position:11
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654	self assert:(foundCollection objectNameCollection size >17).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	"Created: / 07-03-2011 / 18:39:58 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	"Modified: / 17-03-2011 / 18:45:29 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	testRecognizer8
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	\|collector recognizer foundCollection\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	:
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699	position:6
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	self assert:(foundCollection objectNameCollection size >= 48).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711	"Created: / 07-03-2011 / 19:26:53 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	"Modified: / 06-04-2011 / 19:07:02 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	!
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	testRecognizer9
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	\|collector recognizer foundCollection\|
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	collector := self
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	doForSource:'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	\| helper\|
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	:
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	u := 3.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	b:=u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724	c:= u floor aa .
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725	d floor: u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	d floor: 3 b:u.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	self rememberSymbolUsed:nil . c call: b . b call:c dd:d.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728	array := #(3 4 5 6 ).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729	val := ConstantNode type:tokenType
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	value:tokenValue.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	[ u== #Symbol or: [u=3 ] ] ifTrue:[
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	uu := 4.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	bb:=uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	cc:=uu floor.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735	dd floor:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	dd floor:3 b:uu.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	].
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	dd do:[:w\|w seduce.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	]
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	^self.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	'.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	self assert:collector notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	self assert:collector tree notNil.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	recognizer := SmallSenseRecognizer new.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	foundCollection := recognizer
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	recognize:3
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747	position:4
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	collector:collector.
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	self assert:(foundCollection ~~ OrderedCollection).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	self assert:(foundCollection objectNameCollection size >= 48).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	" self assert:(foundNode beforeNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	self assert:((foundNode line)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754	self assert:((foundNode position)=2).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	self assert:(foundNode statement isErrorNode).
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	self assert:(foundNode statement errorToken =':=').
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	self assert:(foundNode beforeStatement isNil)."
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	"Created: / 07-03-2011 / 19:27:11 / Jakub <zelenja7@fel.cvut.cz>"
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	"Modified: / 06-04-2011 / 19:07:13 / 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	!SmallSenseRecognizerTests class methodsFor:'documentation'!
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765	version_SVN
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	^ '$Id: SmallSenseRecognizerTests.st 7705 2011-04-08 09:49:06Z vranyj1 $'
893cc7b0ed1d copied smallsense from old /branches/jv Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	767	! !
39 748389119d0a Initial support for per-language edit support. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 32 diff changeset	768

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 25 Jul 2013 11:34:26 +0100
changeset 39	748389119d0a
parent 32	658f47bc231e
permissions	-rw-r--r--