hg/stx-goodies-petitparser: parsers/smalltalk/tests/PPSmalltalkParserTests.st@a409905f7f2d (annotated)

385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/parsers/smalltalk/tests' }"
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	PPSmalltalkGrammarTests subclass:#PPSmalltalkParserTests
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4	instanceVariableNames:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	classVariableNames:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	poolDictionaries:''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	category:'PetitSmalltalk-Tests'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	!PPSmalltalkParserTests methodsFor:'accessing'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	parserClass
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	^ PPSmalltalkParser
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	!PPSmalltalkParserTests methodsFor:'private'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	assert: aNode format: aString
386 a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	20	\| formatter savedSpaceAfterKeywordSelector \|
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	21
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	22	((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	23	savedSpaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	24	RBFormatter spaceAfterKeywordSelector:true.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	25	formatter := RBFormatter new
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	26	] ifFalse:[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	27	formatter := RBConfigurableFormatter
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	28	].
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	29	[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	30	aNode isCollection
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	31	ifFalse: [ ^ self assert: (Array with: aNode) format: (Array with: aString) ].
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	32	self assert: aNode size equals: aString size.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	33	aNode with: aString do: [ :node :string \| self assert: (formatter format: node) equals: string ]
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	34	] ensure:[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	35	((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	36	RBFormatter spaceAfterKeywordSelector:savedSpaceAfterKeywordSelector.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	37	]
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	38	].
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	39
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	40	"Modified: / 07-10-2014 / 23:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	!PPSmalltalkParserTests methodsFor:'testing'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	testArray1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	super testArray1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	self assert: result isArray.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	self assert: result statements isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	self assert: result periods isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	testArray2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	super testArray2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	self assert: result isArray.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert: result periods isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	self assert: result statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	self assert: result statements first isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	self assert: result statements first selector equals: #foo
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	testArray3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	super testArray3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	self assert: result isArray.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64	self assert: result periods size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	self assert: result statements first isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	self assert: result statements first selector equals: #foo.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	self assert: result statements last isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	self assert: result statements last selector equals: #bar
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72	testArray4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	super testArray4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	self assert: result isArray.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75	self assert: result periods size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	self assert: result statements first isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	self assert: result statements first selector equals: #foo.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	self assert: result statements last isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	self assert: result statements last selector equals: #bar
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	testAssignment1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	super testAssignment1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	self assert: result value equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	testAssignment2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	super testAssignment2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	self assert: result isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	self assert: result variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	self assert: result variable name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	self assert: result value isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	self assert: result value value equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	testAssignment3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	super testAssignment3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	self assert: result isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	self assert: result variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	self assert: result variable name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	self assert: result value isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	self assert: result value variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	self assert: result value variable name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	self assert: result value value isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	self assert: result value value value equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	testAssignment4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	super testAssignment4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	ifFalse: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	self assert: result isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	self assert: result variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116	self assert: result variable name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	self assert: result value isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	self assert: result value value equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	testAssignment5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	super testAssignment5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	124	ifFalse: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self assert: result isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	self assert: result variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	self assert: result variable name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	self assert: result value isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	self assert: result value variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	self assert: result value variable name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	self assert: result value value isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	self assert: result value value value equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	testAssignment6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	super testAssignment6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	137	self assert: result isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	self assert: result variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	self assert: result variable name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	self assert: result value isAssignment.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	self assert: result value variable isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	self assert: result value variable name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	self assert: result value value isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	self assert: result value value name equals: 'c'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	testComment1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	super testComment1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	self assert: result receiver isValue.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	self assert: result arguments first isValue
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	testComment2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	super testComment2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	self assert: result receiver isValue.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	self assert: result arguments first isValue
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	testComment3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	super testComment3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	self assert: result receiver isValue.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	self assert: result arguments first isValue
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	testComment4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	super testComment4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	self assert: result receiver isValue.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	self assert: result arguments first isValue
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	testComment5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	super testComment5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	self assert: result receiver isValue.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184	self assert: result arguments first isValue
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	testMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	super testMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	self assert: result body statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	self assert: result body statements first isReturn.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	self assert: result body statements first value isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	self assert: result body statements first value receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	self assert: result body statements first value selector equals: #-.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	self assert: result body statements first value arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	self assert: result body statements first value arguments first isVariable
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	testMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	super testMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	self assert: result body statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	self assert: result body statements first isReturn.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	self assert: result body statements first value isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	self assert: result body statements first value receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	self assert: result body statements first value selector equals: #-.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	self assert: result body statements first value arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	self assert: result body statements first value arguments first isVariable
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	testMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	super testMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	self assert: result body statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	self assert: result body statements first isReturn.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	self assert: result body statements first value isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	self assert: result body statements first value receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	self assert: result body statements first value selector equals: #-.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	self assert: result body statements first value arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	self assert: result body statements first value arguments first isVariable
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	testSequence1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	super testSequence1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232	self assert: result temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	self assert: result temporaries first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	self assert: result statements second value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	testStatements1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	super testStatements1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	self assert: result statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	self assert: result statements first value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	testStatements2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	super testStatements2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self assert: result statements first value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	self assert: result statements second value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	self assert: result statements second value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	testStatements3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	super testStatements3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	self assert: result statements size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	self assert: result statements first value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	self assert: result statements second value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	self assert: result statements second value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	self assert: result statements third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	self assert: result statements third value equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	self assert: result statements third value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	testStatements4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	super testStatements4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	self assert: result statements size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	self assert: result statements first value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	self assert: result statements second value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	self assert: result statements second value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	self assert: result statements third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	self assert: result statements third value equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	self assert: result statements third value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	testStatements5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	super testStatements5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	self assert: result statements first value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	self assert: result statements second value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	self assert: result statements second value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	testStatements6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	super testStatements6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	self assert: result statements size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	self assert: result statements first value isInteger.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	self assert: result statements second value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	self assert: result statements second value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	testStatements7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	super testStatements7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	self assert: result statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	self assert: result statements first value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	testStatements8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	super testStatements8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	self assert: result statements size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	self assert: result statements first value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	self assert: result statements first value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	testTemporaries1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	super testTemporaries1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	self assert: result temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	self assert: result temporaries first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	self assert: result statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	testTemporaries2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	super testTemporaries2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	self assert: result temporaries size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	self assert: result temporaries first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	self assert: result temporaries second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	self assert: result temporaries second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	self assert: result statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	testTemporaries3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	super testTemporaries3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	self assert: result temporaries size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	self assert: result temporaries first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	self assert: result temporaries second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	self assert: result temporaries second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	self assert: result temporaries third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	self assert: result temporaries third name equals: 'c'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	self assert: result statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	testVariable1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	super testVariable1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	self assert: result name equals: 'trueBinding'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	testVariable2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	super testVariable2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	self assert: result name equals: 'falseBinding'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	testVariable3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	super testVariable3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	self assert: result name equals: 'nilly'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	testVariable4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	super testVariable4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	self assert: result name equals: 'selfish'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	testVariable5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	super testVariable5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	self assert: result name equals: 'supernanny'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	testVariable6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	super testVariable6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	self assert: result name equals: 'super_nanny'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	testVariable7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	super testVariable7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	self assert: result name equals: '__gen_var_123__'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	!PPSmalltalkParserTests methodsFor:'testing-blocks'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	testArgumentsBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	super testArgumentsBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	testArgumentsBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	super testArgumentsBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	self assert: result arguments size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	self assert: result arguments second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	testArgumentsBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	super testArgumentsBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	self assert: result arguments size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	self assert: result arguments second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	self assert: result arguments third name equals: 'c'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	testComplexBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	super testComplexBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	testComplexBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	super testComplexBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476	testSimpleBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	super testSimpleBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	testSimpleBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	super testSimpleBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	testSimpleBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	super testSimpleBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	testStatementBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	super testStatementBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	testStatementBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	super testStatementBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	testStatementBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	super testStatementBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	self assert: result body temporaries size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	!PPSmalltalkParserTests methodsFor:'testing-literals'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	testArrayLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	super testArrayLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	self assert: result value equals: #()
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	testArrayLiteral10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	super testArrayLiteral10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	self assert: result value equals: #(#(1 2) #(1 2 3))
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	testArrayLiteral11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	super testArrayLiteral11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	self assert: result value size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	self assert: (result value first isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	self assert: result value first size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	self assert: (result value last isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	self assert: result value last size equals: 3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	testArrayLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	super testArrayLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	self assert: result value equals: #(1)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	testArrayLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	super testArrayLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	self assert: result value equals: #(1 2)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	testArrayLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	super testArrayLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	self assert: result value equals: #(true false nil)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	testArrayLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	super testArrayLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	self assert: result value equals: #($a)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	testArrayLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	super testArrayLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	self assert: result value equals: #(1.2)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	testArrayLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	super testArrayLiteral7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	self assert: result value equals: #(#size #at: #at:put: #==).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	result value do: [ :each \| self assert: each isSymbol ]
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	testArrayLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	super testArrayLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	self assert: result value equals: #('baz').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	self assert: result value first isString.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	self assert: result value first isSymbol not
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	testArrayLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	super testArrayLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596	self assert: result value equals: #(#(1) 2)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599	testByteLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	super testByteLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	self assert: result value isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	testByteLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	super testByteLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	self assert: result value size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	self assert: result value first equals: 0
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	testByteLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	super testByteLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	self assert: result value size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	self assert: result value first equals: 255
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	testByteLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	super testByteLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	self assert: result value size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	self assert: result value first equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	self assert: result value last equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	testByteLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	super testByteLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	self assert: result value size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	self assert: result value first equals: 10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	self assert: result value second equals: 63.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	self assert: result value last equals: 255
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	testCharLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642	super testCharLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644	self assert: result value equals: $a
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	testCharLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	super testCharLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	self assert: result value equals: Character space
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	testCharLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654	super testCharLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	self assert: result value equals: $$
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	testNumberLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	super testNumberLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	self assert: result value equals: 0.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	testNumberLiteral10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	super testNumberLiteral10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	self assert: result value equals: 10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	testNumberLiteral11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	super testNumberLiteral11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	self assert: result value equals: 511.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	testNumberLiteral12
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	super testNumberLiteral12.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	self assert: result value equals: 175.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	testNumberLiteral13
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	super testNumberLiteral13.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	self assert: result value equals: 202.9921875.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	testNumberLiteral14
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	super testNumberLiteral14.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	self assert: result value floor equals: -9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701	testNumberLiteral15
386 a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	702	((Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	703	^ self.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	704	].
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	705	super testNumberLiteral15.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	706	self assert: result isLiteralNode.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	707	self assert: result value equals: 1 / 2
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	708
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	709	"Modified: / 07-10-2014 / 23:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	testNumberLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	super testNumberLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	self assert: result value equals: 0.1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	testNumberLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	super testNumberLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	self assert: result value equals: 123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	testNumberLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	super testNumberLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729	self assert: result value equals: 123.456.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	testNumberLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	super testNumberLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	self assert: result value equals: 0.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	testNumberLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	super testNumberLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	self assert: result value equals: -0.1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747	testNumberLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	super testNumberLiteral7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	self assert: result value equals: -123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754	testNumberLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	super testNumberLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	self assert: result value equals: -123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	testNumberLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762	super testNumberLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	self assert: result value equals: -123.456.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	767
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	768	testSpecialLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	769	super testSpecialLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	770	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	771	self assert: result value equals: true
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	772	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	773
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774	testSpecialLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775	super testSpecialLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	self assert: result value equals: false
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780	testSpecialLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	super testSpecialLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	self assert: result value equals: nil
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	testStringLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	super testStringLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	self assert: result value equals: ''
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	testStringLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	793	super testStringLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795	self assert: result value equals: 'ab'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798	testStringLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799	super testStringLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	self assert: result value equals: 'ab''cd'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	testSymbolLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805	super testSymbolLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	807	self assert: result value equals: #foo.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	809	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	810
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	testSymbolLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	super testSymbolLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814	self assert: result value equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	816	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	817
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818	testSymbolLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	super testSymbolLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821	self assert: result value equals: #key:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	823	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	824
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825	testSymbolLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	super testSymbolLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828	self assert: result value equals: #key:value:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	testSymbolLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833	super testSymbolLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835	self assert: result value equals: #'testing-result'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	testSymbolLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840	super testSymbolLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	self assert: result value equals: #'__gen__binding'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	847
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	848	testSymbolLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849	super testSymbolLiteral7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	853	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855	testSymbolLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	super testSymbolLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	860	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862	testSymbolLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	super testSymbolLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	865	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	!PPSmalltalkParserTests methodsFor:'testing-messages'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	testBinaryExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872	super testBinaryExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	876	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	877	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	878	self assert: result arguments first value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	879	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	880
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	881	testBinaryExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	882	super testBinaryExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	883	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	884	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	885	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	886	self assert: result receiver receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	887	self assert: result receiver arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	888	self assert: result receiver arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	889	self assert: result receiver arguments first value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	890	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	891	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	892	self assert: result arguments first value equals: 3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	893	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	894
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	895	testBinaryExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	896	super testBinaryExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	897	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	898	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	899	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	900	self assert: result selector equals: #//.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	901	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	902	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	903	self assert: result arguments first value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	904	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	905
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	906	testBinaryExpression4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	907	super testBinaryExpression4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	908	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	909	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	910	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	911	self assert: result selector equals: #--.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	912	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	913	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	914	self assert: result arguments first value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	915	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	916
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	917	testBinaryExpression5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	918	super testBinaryExpression5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	919	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	920	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	921	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	922	self assert: result selector equals: #'==>'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	923	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	924	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	925	self assert: result arguments first value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	926
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	927	"Created: / 07-10-2014 / 00:22:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	928	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	929
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	930	testBinaryMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	931	super testBinaryMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	932	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	933	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	934	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	935	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	936	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	937	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	938	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	939	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	940
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	941	testBinaryMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	942	super testBinaryMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	943	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	944	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	945	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	946	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	947	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	948	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	949	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	950	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	951
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	952	testBinaryMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	953	super testBinaryMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	954	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	955	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	956	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	957	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	958	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	959	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	960	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	961	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	962
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	963	testBinaryMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	964	super testBinaryMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	965	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	966	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	967	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	968	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	969	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	970	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	971	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	972	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	973
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	974	testBinaryMethod5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	975	super testBinaryMethod5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	976	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	977	self assert: result selector equals: #--.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	978	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	979	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	980	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	981	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	982	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	983	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	984
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	985	testCascadeExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	986	super testCascadeExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	987	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	988	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	989	self assert: result messages size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	990	self assert: result messages first receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	991	self assert: result messages first selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	992	self assert: result messages second receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	993	self assert: result messages second selector equals: #negated
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	994	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	995
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	996	testCascadeExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	997	super testCascadeExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	998	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	999	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1000	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1001	self assert: result receiver receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1002	self assert: result receiver selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1003	self assert: result messages size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1004	self assert: result messages first receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1005	self assert: result messages first selector equals: #negated.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1006	self assert: result messages second receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1007	self assert: result messages second selector equals: #raisedTo:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1008	self assert: result messages third receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1009	self assert: result messages third selector equals: #negated
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1010	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1011
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1012	testCascadeExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1013	super testCascadeExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1014	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1015	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1016	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1017	self assert: result messages size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1018	self assert: result messages first receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1019	self assert: result messages first selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1020	self assert: result messages first arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1021	self assert: result messages second receiver equals: result receiver.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1022	self assert: result messages second selector equals: #-.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1023	self assert: result messages second arguments size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1024	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1025
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1026	testKeywordExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1027	super testKeywordExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1028	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1029	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1030	self assert: result receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1031	self assert: result selector equals: #to:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1032	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1033	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1034	self assert: result arguments first value equals: 2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1035	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1036
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1037	testKeywordExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1038	super testKeywordExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1039	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1040	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1041	self assert: result selector equals: #to:by:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1042	self assert: result arguments size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1043	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1044	self assert: result arguments first value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1045	self assert: result arguments second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1046	self assert: result arguments second value equals: 3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1047	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1048
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1049	testKeywordExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1050	super testKeywordExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1051	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1052	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1053	self assert: result selector equals: #to:by:do:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1054	self assert: result arguments size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1055	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1056	self assert: result arguments first value equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1057	self assert: result arguments second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1058	self assert: result arguments second value equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1059	self assert: result arguments third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1060	self assert: result arguments third value equals: 4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1061	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1062
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1063	testKeywordMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1064	super testKeywordMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1065	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1066	self assert: result selector equals: #to:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1067	self assert: result arguments size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1068	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1069	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1070	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1071	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1072	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1073
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1074	testKeywordMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1075	super testKeywordMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1076	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1077	self assert: result selector equals: #to:do:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1078	self assert: result arguments size equals: 2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1079	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1080	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1081	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1082	self assert: result arguments second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1083	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1085	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1086
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1087	testKeywordMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1088	super testKeywordMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1089	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1090	self assert: result selector equals: #to:do:by:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1091	self assert: result arguments size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1092	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1093	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1094	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1095	self assert: result arguments second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1096	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1097	self assert: result arguments third name equals: 'c'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1098	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1099	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1100	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1101
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1102	testKeywordMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1103	super testKeywordMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1104	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1105	self assert: result selector equals: #to:do:by:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1106	self assert: result arguments size equals: 3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1107	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1108	self assert: result arguments first name equals: 'a'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1109	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1110	self assert: result arguments second name equals: 'b'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1111	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1112	self assert: result arguments third name equals: 'c'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1113	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1114	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1115	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1116
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1117	testUnaryExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1118	super testUnaryExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1119	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1120	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1121	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1122	self assert: result arguments isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1123	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1124
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1125	testUnaryExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1126	super testUnaryExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1127	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1128	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1129	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1130	self assert: result receiver receiver value equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1131	self assert: result receiver selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1132	self assert: result receiver arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1133	self assert: result selector equals: #negated.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1134	self assert: result arguments isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1135	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1136
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1137	testUnaryMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1138	super testUnaryMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1139	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1140	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1141	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1142	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1143	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1144	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1145
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1146	testUnaryMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1147	super testUnaryMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1148	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1149	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1150	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1151	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1152	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1153	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1154
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1155	testUnaryMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1156	super testUnaryMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1157	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1158	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1159	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1160	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1161	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1162	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1163
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1164	testUnaryMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1165	super testUnaryMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1166	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1167	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1168	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1169	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1170	self assert: result body statements size equals: 1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1171	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1172
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1173	testUnaryMethod5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1174	super testUnaryMethod5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1175	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1176	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1177	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1178	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1179	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1180	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1181
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1182	!PPSmalltalkParserTests methodsFor:'testing-pragmas'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1183
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1184	testPragma1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1185	super testPragma1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1186	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1187	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1188	format: #('<foo>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1189	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1190	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1191	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1192
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1193	testPragma10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1194	super testPragma10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1195	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1196	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1197	format: #('<foo: #bar>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1198	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1199	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1200	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1201
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1202	testPragma11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1203	super testPragma11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1204	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1205	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1206	format: #('<foo: true>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1207	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1208	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1209	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1210
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1211	testPragma12
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1212	super testPragma12.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1213	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1214	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1215	format: #('<foo: false>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1216	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1217	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1218	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1219
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1220	testPragma13
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1221	super testPragma13.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1222	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1223	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1224	format: #('<foo: nil>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1225	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1226	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1227	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1228
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1229	testPragma14
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1230	super testPragma14.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1231	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1232	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1233	format: #('<foo: #()>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1234	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1235	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1236	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1237
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1238	testPragma15
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1239	super testPragma15.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1240	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1241	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1242	format: #('<foo: #()>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1243	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1244	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1245	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1246
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1247	testPragma16
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1248	super testPragma16.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1249	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1250	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1251	format: #('< + 1>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1252	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1253	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1254	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1255
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1256	testPragma2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1257	super testPragma2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1258	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1259	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1260	format: #('<foo>' '<bar>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1261	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1262	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1263	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1264
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1265	testPragma3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1266	super testPragma3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1267	self assert: result pragmas format: #('<foo>').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1268	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1269	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1270	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1271
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1272	testPragma4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1273	super testPragma4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1274	self assert: result pragmas format: #('<foo>').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1275	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1276	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1277	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1278
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1279	testPragma5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1280	super testPragma5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1281	self assert: result pragmas format: #('<foo>' '<bar>').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1282	self assert: result body temporaries size equals: 1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1283	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1284	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1285
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1286	testPragma6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1287	super testPragma6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1288	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1289	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1290	format: #('<foo: 1>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1291	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1292	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1293	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1294
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1295	testPragma7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1296	super testPragma7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1297	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1298	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1299	format: #('<foo: 1.2>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1300	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1301	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1302	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1303
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1304	testPragma8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1305	super testPragma8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1306	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1307	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1308	format: #('<foo: ''bar''>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1309	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1310	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1311	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1312
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1313	testPragma9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1314	super testPragma9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1315	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1316	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1317	format: #('<foo: #bar>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1318	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1319	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1320	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1321
386 a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1322	!PPSmalltalkParserTests class methodsFor:'documentation'!
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1323
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1324	version_HG
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1325
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1326	^ '$Changeset: <not expanded> $'
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1327	! !
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1328

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 08 Oct 2014 00:08:21 +0100
changeset 386	a409905f7f2d
parent 385	44a36ed4e484
child 417	3c0a91182e65
permissions	-rw-r--r--