hg/stx-goodies-petitparser: parsers/smalltalk/tests/PPSmalltalkParserTests.st@7e08b31e0dae (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
417 3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	187	testComment6a
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	188	super testComment6a.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	189	self assert: result isMessage.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	190	self assert: result receiver isValue.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	191	self assert: result selector equals: #+.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	192	self assert: result arguments first isValue
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	193
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	194	"Created: / 07-11-2014 / 01:53:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	195	!
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	196
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	197	testComment6b
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	198	super testComment6b.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	199	self assert: result isMessage.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	200	self assert: result receiver isValue.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	201	self assert: result selector equals: #+.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	202	self assert: result arguments first isValue
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	203
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	204	"Created: / 07-11-2014 / 01:53:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	205	!
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	206
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	207	testComment6c
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	208	super testComment6c.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	209	self assert: result isMessage.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	210	self assert: result receiver isValue.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	211	self assert: result selector equals: #+.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	212	self assert: result arguments first isValue
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	213
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	214	"Created: / 07-11-2014 / 01:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	215	!
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	216
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	217	testComment6d
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	218	super testComment6d.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	219	self assert: result isMessage.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	220	self assert: result receiver isValue.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	221	self assert: result selector equals: #+.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	222	self assert: result arguments first isValue
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	223
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	224	"Created: / 07-11-2014 / 01:53:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	225	!
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	226
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	227	testComment6e
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	228	super testComment6e.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	229	self assert: result isMessage.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	230	self assert: result receiver isValue.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	231	self assert: result selector equals: #+.
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	232	self assert: result arguments first isValue
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	233
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	234	"Created: / 07-11-2014 / 01:53:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	235	!
3c0a91182e65 Smalltalk grammar updated to allow for Smalltalk/X EOL comments Jan Vrany <jan.vrany@fit.cvut.cz> parents: 386 diff changeset	236
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	testMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	super testMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	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	243	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	244	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	245	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	246	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	247	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	248	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	249	!
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	testMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	super testMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	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	257	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	258	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	259	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	260	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	261	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	262	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	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	testMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	super testMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	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	271	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	272	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	273	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	274	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	275	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	276	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	277	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	testSequence1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280	super testSequence1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	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	283	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	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	285	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	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 second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	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	290	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	testStatements1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	super testStatements1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	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	297	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	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	299	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	300	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	testStatements2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	super testStatements2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	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	307	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	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	309	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	310	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	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	312	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	313	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	testStatements3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	super testStatements3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	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	320	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	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	322	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	323	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	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	325	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	326	self assert: result statements third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	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	328	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	329	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	testStatements4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	super testStatements4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	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	336	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	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	338	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	339	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	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	341	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	342	self assert: result statements third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	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	344	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	345	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	testStatements5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	super testStatements5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	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	352	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	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	354	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	355	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	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	357	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	358	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	testStatements6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	super testStatements6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	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	365	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	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	367	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	368	self assert: result statements second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	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	370	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	371	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	testStatements7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	super testStatements7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	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	378	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	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	380	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	381	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	testStatements8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	super testStatements8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	self assert: result temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387	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	388	self assert: result statements first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	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	390	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	391	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	393	testStatements9
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	394	super testStatements9.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	395	self assert: result isEmpty.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	396	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	397
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	testTemporaries1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399	super testTemporaries1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	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	402	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	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	404	self assert: result statements isEmpty
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
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	testTemporaries2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	super testTemporaries2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	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	411	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	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	413	self assert: result temporaries second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	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	415	self assert: result statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	testTemporaries3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	super testTemporaries3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	self assert: result isSequence.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	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	422	self assert: result temporaries first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	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	424	self assert: result temporaries second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	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	426	self assert: result temporaries third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	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	428	self assert: result statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	testVariable1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	super testVariable1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	self assert: result name equals: 'trueBinding'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	testVariable2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	super testVariable2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	self assert: result name equals: 'falseBinding'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	testVariable3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	super testVariable3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	self assert: result name equals: 'nilly'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	testVariable4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	super testVariable4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	self assert: result name equals: 'selfish'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	testVariable5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	super testVariable5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	self assert: result name equals: 'supernanny'
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
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	testVariable6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	super testVariable6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	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	467	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	testVariable7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	super testVariable7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	self assert: result isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	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	475	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	!PPSmalltalkParserTests methodsFor:'testing-blocks'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	testArgumentsBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	super testArgumentsBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	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	483	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	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	485	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	testArgumentsBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	super testArgumentsBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	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	493	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	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	495	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	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	497	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	self assert: result body statements isEmpty
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
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	testArgumentsBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	super testArgumentsBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	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	505	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	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	507	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	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	509	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	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	511	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	515	testBlock1
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	516	super testBlock1.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	517	self assert: result isBlock.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	518	self assert: result arguments size equals: 0.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	519	self assert: result body temporaries isEmpty.
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	520	self assert: result body statements isEmpty
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	521	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 417 diff changeset	522
385 44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	testComplexBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	super testComplexBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	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	527	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	528	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	529	!
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	testComplexBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	super testComplexBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	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	535	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	536	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	537	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	testSimpleBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	super testSimpleBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	!
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	testSimpleBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	super testSimpleBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	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	553	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	testSimpleBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	super testSimpleBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	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	559	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	testStatementBlock1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	super testStatementBlock1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	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	569	!
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	testStatementBlock2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	super testStatementBlock2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	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	576	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	577	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	testStatementBlock3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	super testStatementBlock3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	self assert: result isBlock.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	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	584	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	585	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	!PPSmalltalkParserTests methodsFor:'testing-literals'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	testArrayLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	super testArrayLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	self assert: result value equals: #()
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	testArrayLiteral10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596	super testArrayLiteral10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	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	599	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	testArrayLiteral11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	super testArrayLiteral11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	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	605	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	606	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	607	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	608	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	609	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	testArrayLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	super testArrayLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	self assert: result value equals: #(1)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	testArrayLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	super testArrayLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	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	621	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	testArrayLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	super testArrayLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	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	627	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	testArrayLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	super testArrayLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	self assert: result value equals: #($a)
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	testArrayLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	super testArrayLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	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	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	testArrayLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642	super testArrayLiteral7.
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: #(#size #at: #at:put: #==).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	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	646	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	testArrayLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	super testArrayLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	self assert: result value equals: #('baz').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	self assert: result value first isString.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	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	654	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	testArrayLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	super testArrayLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	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	660	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	testByteLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	super testByteLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	self assert: result value isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	testByteLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	super testByteLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	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	674	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	675	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	testByteLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	super testByteLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	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	682	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	683	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	testByteLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	super testByteLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	self assert: (result value isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689	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	690	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	691	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	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	testByteLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	super testByteLiteral5.
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 isKindOf: ByteArray).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	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	699	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	700	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	701	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	702	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	testCharLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	super testCharLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	self assert: result value equals: $a
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	testCharLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711	super testCharLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	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	714	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	testCharLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717	super testCharLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	self assert: result value equals: $$
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	testNumberLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	super testNumberLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725	self assert: result value equals: 0.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729	testNumberLiteral10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	super testNumberLiteral10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	self assert: result value equals: 10.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	testNumberLiteral11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	super testNumberLiteral11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	self assert: result value equals: 511.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	testNumberLiteral12
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	super testNumberLiteral12.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	self assert: result value equals: 175.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	testNumberLiteral13
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	super testNumberLiteral13.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	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	754	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	testNumberLiteral14
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758	super testNumberLiteral14.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	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	761	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	testNumberLiteral15
386 a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	765	((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	766	^ self.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	767	].
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	768	super testNumberLiteral15.
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	769	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	770	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	771
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	772	"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	773	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775	testNumberLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	super testNumberLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778	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	779	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	testNumberLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	super testNumberLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785	self assert: result value equals: 123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	testNumberLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	super testNumberLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	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	793	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796	testNumberLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797	super testNumberLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799	self assert: result value equals: 0.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	!
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	testNumberLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	super testNumberLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806	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	807	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	!
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	testNumberLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	super testNumberLiteral7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	self assert: result value equals: -123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815	!
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	testNumberLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818	super testNumberLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820	self assert: result value equals: -123.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821	self assert: result value isInteger
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822	!
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	testNumberLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825	super testNumberLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827	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	828	self assert: result value isFloat
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	!
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	testSpecialLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	super testSpecialLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	self assert: result value equals: true
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837	testSpecialLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	super testSpecialLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840	self assert: result value equals: false
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	testSpecialLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	super testSpecialLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	self assert: result value equals: nil
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
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849	testStringLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	850	super testStringLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	851	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	852	self assert: result value equals: ''
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	testStringLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	super testStringLiteral2.
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: 'ab'
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	!
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	testStringLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862	super testStringLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	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	865	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867	testSymbolLiteral1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868	super testSymbolLiteral1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870	self assert: result value equals: #foo.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	testSymbolLiteral2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875	super testSymbolLiteral2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	876	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	877	self assert: result value equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	878	self assert: result value isSymbol
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	testSymbolLiteral3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	882	super testSymbolLiteral3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	883	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	884	self assert: result value equals: #key:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	885	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	886	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	887
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	888	testSymbolLiteral4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	889	super testSymbolLiteral4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	890	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	891	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	892	self assert: result value isSymbol
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	testSymbolLiteral5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	896	super testSymbolLiteral5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	897	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	898	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	899	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	900	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	901
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	902	testSymbolLiteral6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	903	super testSymbolLiteral6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	904	PPSmalltalkGrammar allowUnderscoreAssignment
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	905	ifTrue: [ ^ self ].
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	906	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	907	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	908	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	909	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	910
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	911	testSymbolLiteral7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	912	super testSymbolLiteral7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	913	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	914	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	915	self assert: result value isSymbol
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
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	918	testSymbolLiteral8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	919	super testSymbolLiteral8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	920	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	921	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	922	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	923	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	924
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	925	testSymbolLiteral9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	926	super testSymbolLiteral9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	927	self assert: result isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	928	self assert: result value equals: #fucker.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	929	self assert: result value isSymbol
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	930	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	931
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	932	!PPSmalltalkParserTests methodsFor:'testing-messages'!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	933
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	934	testBinaryExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	935	super testBinaryExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	936	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	937	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	938	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	939	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	940	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	941	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	942	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	943
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	944	testBinaryExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	945	super testBinaryExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	946	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	947	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	948	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	949	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	950	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	951	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	952	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	953	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	954	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	955	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	956	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	957
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	958	testBinaryExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	959	super testBinaryExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	960	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	961	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	962	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	963	self assert: result selector equals: #//.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	964	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	965	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	966	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	967	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	968
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	969	testBinaryExpression4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	970	super testBinaryExpression4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	971	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	972	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	973	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	974	self assert: result selector equals: #--.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	975	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	976	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	977	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	978	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	979
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	980	testBinaryExpression5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	981	super testBinaryExpression5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	982	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	983	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	984	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	985	self assert: result selector equals: #'==>'.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	986	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	987	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	988	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	989
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	990	"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	991	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	992
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	993	testBinaryMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	994	super testBinaryMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	995	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	996	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	997	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	998	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	999	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	1000	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1001	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1002	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1003
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1004	testBinaryMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1005	super testBinaryMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1006	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1007	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1008	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	1009	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1010	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	1011	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	1012	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1013	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1014
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1015	testBinaryMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1016	super testBinaryMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1017	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1018	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1019	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	1020	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1021	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	1022	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1023	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	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	testBinaryMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1027	super testBinaryMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1028	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1029	self assert: result selector equals: #+.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1030	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	1031	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1032	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	1033	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	1034	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	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	testBinaryMethod5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1038	super testBinaryMethod5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1039	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1040	self assert: result selector equals: #--.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1041	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	1042	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1043	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	1044	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1045	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1046	!
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	testCascadeExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1049	super testCascadeExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1050	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1051	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1052	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	1053	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	1054	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	1055	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	1056	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	1057	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1058
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1059	testCascadeExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1060	super testCascadeExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1061	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1062	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1063	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1064	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	1065	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	1066	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	1067	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	1068	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	1069	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	1070	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	1071	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	1072	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	1073	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1074
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1075	testCascadeExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1076	super testCascadeExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1077	self assert: result isCascade.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1078	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1079	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	1080	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	1081	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	1082	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	1083	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	1084	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	1085	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	1086	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	1087	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1088
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1089	testKeywordExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1090	super testKeywordExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1091	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1092	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1093	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	1094	self assert: result selector equals: #to:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1095	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	1096	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1097	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	1098	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1099
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1100	testKeywordExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1101	super testKeywordExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1102	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1103	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1104	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	1105	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	1106	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1107	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	1108	self assert: result arguments second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1109	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	1110	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1111
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1112	testKeywordExpression3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1113	super testKeywordExpression3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1114	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1115	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1116	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	1117	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	1118	self assert: result arguments first isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1119	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	1120	self assert: result arguments second isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1121	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	1122	self assert: result arguments third isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1123	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	1124	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1125
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1126	testKeywordMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1127	super testKeywordMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1128	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1129	self assert: result selector equals: #to:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1130	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	1131	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1132	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	1133	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1134	self assert: result body statements 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	testKeywordMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1138	super testKeywordMethod2.
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: #to:do:.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1141	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	1142	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1143	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	1144	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1145	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	1146	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	1147	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1148	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1149
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1150	testKeywordMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1151	super testKeywordMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1152	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1153	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	1154	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	1155	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1156	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	1157	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1158	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	1159	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1160	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	1161	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1162	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	1163	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1164
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1165	testKeywordMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1166	super testKeywordMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1167	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1168	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	1169	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	1170	self assert: result arguments first isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1171	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	1172	self assert: result arguments second isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1173	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	1174	self assert: result arguments third isVariable.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1175	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	1176	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	1177	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	1178	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1179
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1180	testUnaryExpression1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1181	super testUnaryExpression1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1182	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1183	self assert: result receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1184	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1185	self assert: result arguments isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1186	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1187
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1188	testUnaryExpression2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1189	super testUnaryExpression2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1190	self assert: result isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1191	self assert: result receiver isMessage.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1192	self assert: result receiver receiver isLiteralNode.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1193	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	1194	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	1195	self assert: result receiver arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1196	self assert: result selector equals: #negated.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1197	self assert: result arguments isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1198	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1199
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1200	testUnaryMethod1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1201	super testUnaryMethod1.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1202	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1203	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1204	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1205	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1206	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1207	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1208
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1209	testUnaryMethod2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1210	super testUnaryMethod2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1211	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1212	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1213	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1214	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	1215	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1216	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1217
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1218	testUnaryMethod3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1219	super testUnaryMethod3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1220	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1221	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1222	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1223	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1224	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	1225	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1226
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1227	testUnaryMethod4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1228	super testUnaryMethod4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1229	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1230	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1231	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1232	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	1233	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	1234	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1235
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1236	testUnaryMethod5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1237	super testUnaryMethod5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1238	self assert: result isMethod.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1239	self assert: result selector equals: #abs.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1240	self assert: result arguments isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1241	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	1242	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1243	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1244
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1245	!PPSmalltalkParserTests methodsFor:'testing-pragmas'!
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	testPragma1
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1248	super testPragma1.
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: #('<foo>' ).
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	testPragma10
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1257	super testPragma10.
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	testPragma11
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1266	super testPragma11.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1267	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1268	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1269	format: #('<foo: true>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1270	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1271	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1272	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1273
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1274	testPragma12
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1275	super testPragma12.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1276	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1277	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1278	format: #('<foo: false>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1279	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1280	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1281	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1282
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1283	testPragma13
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1284	super testPragma13.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1285	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1286	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1287	format: #('<foo: nil>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1288	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1289	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1290	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1291
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1292	testPragma14
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1293	super testPragma14.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1294	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1295	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1296	format: #('<foo: #()>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1297	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1298	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1299	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1300
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1301	testPragma15
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1302	super testPragma15.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1303	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1304	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1305	format: #('<foo: #()>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1306	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1307	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1308	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1309
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1310	testPragma16
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1311	super testPragma16.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1312	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1313	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1314	format: #('< + 1>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1315	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1316	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1317	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1318
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1319	testPragma2
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1320	super testPragma2.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1321	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1322	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1323	format: #('<foo>' '<bar>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1324	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1325	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1326	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1327
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1328	testPragma3
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1329	super testPragma3.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1330	self assert: result pragmas format: #('<foo>').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1331	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	1332	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1333	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1334
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1335	testPragma4
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1336	super testPragma4.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1337	self assert: result pragmas format: #('<foo>').
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1338	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	1339	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1340	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1341
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1342	testPragma5
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1343	super testPragma5.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1344	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	1345	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	1346	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1347	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1348
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1349	testPragma6
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1350	super testPragma6.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1351	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1352	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1353	format: #('<foo: 1>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1354	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1355	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1356	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1357
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1358	testPragma7
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1359	super testPragma7.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1360	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1361	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1362	format: #('<foo: 1.2>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1363	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1364	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1365	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1366
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1367	testPragma8
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1368	super testPragma8.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1369	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1370	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1371	format: #('<foo: ''bar''>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1372	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1373	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1374	!
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1375
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1376	testPragma9
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1377	super testPragma9.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1378	self
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1379	assert: result pragmas
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1380	format: #('<foo: #bar>' ).
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1381	self assert: result body temporaries isEmpty.
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1382	self assert: result body statements isEmpty
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1383	! !
44a36ed4e484 Commited a Smalltalk parser (MC package PetitSmalltalk) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1384
386 a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1385	!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	1386
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1387	version_HG
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1388
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1389	^ '$Changeset: <not expanded> $'
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1390	! !
a409905f7f2d Smalltalk parser almost fixed (except few pragma-related tests). Jan Vrany <jan.vrany@fit.cvut.cz> parents: 385 diff changeset	1391

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 24 Nov 2014 00:09:23 +0000
changeset 421	7e08b31e0dae
parent 417	3c0a91182e65
permissions	-rw-r--r--