hg/stx-goodies-regression: RegressionTests__CompilerTest.st@ae93cf33a668 (annotated)

69 ffbf7492f5e5 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	1	"{ Package: 'exept:regression' }"
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	2
70 c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	3	"{ NameSpace: RegressionTests }"
c677f96c4a0b * empty log message * Claus Gittinger <cg@exept.de> parents: 69 diff changeset	4
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	5	TestCase subclass:#CompilerTest
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	6	instanceVariableNames:'value'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
181 a56517005229 category change Claus Gittinger <cg@exept.de> parents: 113 diff changeset	9	category:'tests-Regression'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	12	Object subclass:#DummyClass
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	13	instanceVariableNames:'applicationModel service request'
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	14	classVariableNames:''
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	15	poolDictionaries:''
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	16	privateIn:CompilerTest
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	17	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	18
577 e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	19	Object subclass:#Schedule
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	20	instanceVariableNames:'state'
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	21	classVariableNames:''
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	22	poolDictionaries:''
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	23	privateIn:CompilerTest
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	24	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	25
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	26	Object subclass:#State
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	27	instanceVariableNames:'state'
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	28	classVariableNames:''
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	29	poolDictionaries:''
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	30	privateIn:CompilerTest::Schedule
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	31	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	32
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	33
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	34	!CompilerTest class methodsFor:'helpers'!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	35
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	36	compile:code
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	37	Error handle:[:ex \|
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	38	^ #Error
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	39	] do:[
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	40	^ super compile:code
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	41	]
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	42	! !
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	44	!CompilerTest class methodsFor:'others'!
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	45
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	46	foo:arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	47	^ arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	48	ifTrue:[^ 1]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	49	ifFalse:[2]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	50	! !
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	51
88 a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	52	!CompilerTest class methodsFor:'tests - constants'!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	53
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	54	test_int1024
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	55	^ 1024
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	56
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	57	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	58	self test_int1024
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	59	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	60
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	61	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	62
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	63	test_int1048576
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	64	^ 1048576
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	65	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	66
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	67	test_int128
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	68	^ 128
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	69
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	70	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	71	self test_int128
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	72	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	73	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	74
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	75	test_int131072
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	76	^ 131072
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	77	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	78
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	79	test_int16384
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	80	^ 16384
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	81
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	82	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	83	self test_int16384
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	84	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	85
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	86	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	87
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	88	test_int2048
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	89	^ 2048
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	90
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	91	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	92	self test_int2048
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	93	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	94
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	95	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	96
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	97	test_int2097152
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	98	^ 2097152
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	99	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	100
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	101	test_int256
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	102	^ 256
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	103
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	104	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	105	self test_int256
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	106	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	107
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	108	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	109
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	110	test_int262144
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	111	^ 262144
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	112	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	113
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	114	test_int32768
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	115	^ 32768
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	116
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	117	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	118	self test_int32768
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	119	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	120
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	121	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	122
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	123	test_int4096
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	124	^ 4096
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	125
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	126	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	127	self test_int4096
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	128	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	129
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	130	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	131
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	132	test_int512
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	133	^ 512
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	134
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	135	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	136	self test_int512
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	137	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	138
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	139	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	140
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	141	test_int524288
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	142	^ 524288
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	143	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	144
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	145	test_int65536
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	146	^ 65536
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	147
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	148	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	149	self test_int65536
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	150	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	151
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	152	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	153
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	154	test_int8192
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	155	^ 8192
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	156
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	157	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	158	self test_int8192
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	159	"
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	160
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	161	!
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	162
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	163	test_intM128
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	164	^ -128
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	165	! !
a7e8b6312d2b * empty log message * Claus Gittinger <cg@exept.de> parents: 87 diff changeset	166
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	167	!CompilerTest class methodsFor:'tests argument passing'!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	168
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	169	ret0
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	170	^ 0
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	171
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	172	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	173	self ret0
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	174	Time millisecondsToRun:[ 1000000 timesRepeat:[self ret0] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	175	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	176	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	177
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	178	ret1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	179	^ 1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	180
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	181	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	182	self ret1
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	183	1000000 timesRepeat:[self ret1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	184	Time millisecondsToRun:[ 1000000 timesRepeat:[self ret1] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	185	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	186	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	187
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	188	retArg1:arg
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	189	^ arg
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	190
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	191	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	192	self retArg1:1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	193	1000000 timesRepeat:[self retArg1:1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	194	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg1:1] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	195	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	196	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	197
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	198	retArg2:arg1 _:arg2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	199	^ arg2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	200
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	201	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	202	self retArg2:1 _:2
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	203	1000000 timesRepeat:[self retArg2:1 _:2]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	204	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg2:1 _:2] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	205	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	206	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	207
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	208	retArg3:arg1 _:arg2 _:arg3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	209	^ arg3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	210
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	211	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	212	self retArg3:1 _:2 _:3
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	213	1000000 timesRepeat:[self retArg3:1 _:2 _:3]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	214	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg3:1 _:2 _:3] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	215	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	216	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	217
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	218	retArg4:arg1 _:arg2 _:arg3 _:arg4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	219	^ arg4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	220
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	221	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	222	self retArg4:1 _:2 _:3 _:4
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	223	1000000 timesRepeat:[self retArg4:1 _:2 _:3 _:4]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	224	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg4:1 _:2 _:3 _:4] ]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	225	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	226	!
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	227
79 a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	228	retArg5:arg1 _:arg2 _:arg3 _:arg4 _:arg5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	229	^ arg5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	230
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	231	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	232	self retArg5:1 _:2 _:3 _:4 _:5
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	233	1000000 timesRepeat:[self retArg5:1 _:2 _:3 _:4 _:5]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	234	Time millisecondsToRun:[ 1000000 timesRepeat:[self retArg5:1 _:2 _:3 _:4 _:5] ]
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	235	"
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	236	!
a71f48d7311b checkin from browser Claus Gittinger <cg@exept.de> parents: 78 diff changeset	237
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	238	retLiteral1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	239	^ 'hello'
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	240
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	241	"
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	242	self retLiteral1
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	243	1000000 timesRepeat:[self retLiteral1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	244	Time millisecondsToRun:[ 1000000 timesRepeat:[self retLiteral1] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	245	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	246	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	247
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	248	retM1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	249	^ -1
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	250
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	251	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	252	self retM1
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	253	1000000 timesRepeat:[self retM1]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	254	Time millisecondsToRun:[ 1000000 timesRepeat:[self retM1] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	255	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	256	!
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	257
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	258	retSelf
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	259	^ self
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	260
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	261	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	262	self retSelf
78 349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	263	1000000 timesRepeat:[self retSelf]
349870f2f9b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 77 diff changeset	264	Time millisecondsToRun:[ 1000000 timesRepeat:[self retSelf] ]
77 904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	265	"
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	266	! !
904ff6cdebee checkin from browser Claus Gittinger <cg@exept.de> parents: 74 diff changeset	267
587 ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	268	!CompilerTest methodsFor:'cleanup'!
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	269
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	270	tearDown
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	271	self class removeSelector:#foo:.
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	272
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	273	"Created: / 05-07-2011 / 18:20:08 / cg"
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	274	! !
ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	275
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	276	!CompilerTest methodsFor:'helpers'!
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	277
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	278	callEnsureWith2Returns
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	279	[
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	280	^ false
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	281	] ensure:[
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	282	^ true
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	283	].
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	284	^ nil
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	285
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	286	"Created: / 24-08-2010 / 12:51:50 / cg"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	287	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	288
569 e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	289	callEnsureWithException
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	290	[
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	291	Error raiseRequest
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	292	] ensure:[
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	293	^ true
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	294	].
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	295	^ nil
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	296
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	297	"Created: / 24-08-2010 / 12:54:07 / cg"
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	298	!
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	299
81 1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	300	size
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	301	^ 1
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	302	!
1ae96bae3a7f * empty log message * Claus Gittinger <cg@exept.de> parents: 80 diff changeset	303
61 cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	304	value:something
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	305	value := something
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	306	! !
cc6dcfae805f checkin from browser Claus Gittinger <cg@exept.de> parents: 59 diff changeset	307
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	308	!CompilerTest methodsFor:'tests - booleans'!
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	309
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	310	_testAnd:arg1 _:arg2
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	311	^ arg1 & arg2
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	312
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	313	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	314	self new _testAnd:true _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	315	self new _testAnd:true _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	316	self new _testAnd:false _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	317	self new _testAnd:false _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	318	self new _testAnd:false _:nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	319	self new _testAnd:true _:nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	320	self new _testAnd:nil _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	321	self new _testAnd:nil _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	322	self new _testAnd:1234 _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	323	self new _testAnd:1234 _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	324	self new _testAnd:true _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	325	self new _testAnd:false _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	326	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	327	!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	328
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	329	_testNot1:arg
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	330	^ arg not
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	331
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	332	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	333	self new _testNot1:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	334	self new _testNot1:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	335	self new _testNot1:1234.
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	336	"
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	337	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	338
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	339	_testNot2:arg1 _:arg2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	340	^ arg1 not & arg2 not
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	341
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	342	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	343	self new _testNot2:true _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	344	self new _testNot2:false _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	345	self new _testNot2:true _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	346	self new _testNot2:false _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	347
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	348	self new _testNot2:false _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	349	self new _testNot2:true _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	350	self new _testNot2:1234 _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	351	self new _testNot2:1234 _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	352	self new _testNot2:1234 _:2345.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	353	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	354	!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	355
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	356	_testNot3:arg1 _:arg2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	357	^ arg1 not \| arg2 not
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	358
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	359	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	360	self new _testNot3:true _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	361	self new _testNot3:false _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	362	self new _testNot3:true _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	363	self new _testNot3:false _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	364
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	365	self new _testNot3:false _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	366	self new _testNot3:true _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	367	self new _testNot3:1234 _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	368	self new _testNot3:1234 _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	369	self new _testNot3:1234 _:2345.
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	370	"
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	371	!
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	372
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	373	_testOr:arg1 _:arg2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	374	^ arg1 \| arg2
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	375
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	376	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	377	self new _testOr:true _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	378	self new _testOr:true _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	379	self new _testOr:false _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	380	self new _testOr:false _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	381	self new _testOr:false _:nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	382	self new _testOr:true _:nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	383	self new _testOr:nil _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	384	self new _testOr:nil _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	385	self new _testOr:1234 _:true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	386	self new _testOr:1234 _:false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	387	self new _testOr:true _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	388	self new _testOr:false _:1234.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	389	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	390	!
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	391
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	392	testAnd
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	393	self assert:( ( self _testAnd:true _:true ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	394	self assert:( ( self _testAnd:true _:false ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	395	self assert:( ( self _testAnd:false _:true ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	396	self assert:( ( self _testAnd:false _:false ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	397
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	398	self assert:( ( self _testAnd:false _:nil ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	399	self assert:( ( self _testAnd:true _:nil ) == nil ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	400	self assert:( ( self _testAnd:false _:1234 ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	401	self assert:( ( self _testAnd:true _:1234 ) == 1234 ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	402	self should:[ self _testAnd:nil _:false ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	403	self should:[ self _testAnd:nil _:true ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	404	self should:[ self _testAnd:1234 _:false ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	405	self should:[ self _testAnd:1234 _:true ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	406
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	407	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	408	self new testAnd
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	409	"
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	410	!
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	411
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	412	testNot
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	413	self assert:( ( self _testNot1:true ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	414	self assert:( ( self _testNot1:false ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	415
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	416	self should:[ self _testNot1:nil ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	417	self should:[ self _testNot1:1234 ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	418
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	419
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	420	self assert:( ( self _testNot2:true _:true) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	421	self assert:( ( self _testNot2:false _:true) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	422	self assert:( ( self _testNot2:true _:false) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	423	self assert:( ( self _testNot2:false _:false) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	424
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	425	self should:[ self _testNot2:false _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	426	self should:[ self _testNot2:true _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	427	self should:[ self _testNot2:1234 _:false] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	428	self should:[ self _testNot2:1234 _:true] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	429	self should:[ self _testNot2:1234 _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	430	self should:[ self _testNot2:nil _:false] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	431	self should:[ self _testNot2:nil _:true] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	432	self should:[ self _testNot2:nil _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	433
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	434	self assert:( ( self _testNot3:true _:true) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	435	self assert:( ( self _testNot3:false _:true) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	436	self assert:( ( self _testNot3:true _:false) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	437	self assert:( ( self _testNot3:false _:false) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	438
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	439	self should:[ self _testNot3:false _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	440	self should:[ self _testNot3:true _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	441	self should:[ self _testNot3:1234 _:false] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	442	self should:[ self _testNot3:1234 _:true] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	443	self should:[ self _testNot3:1234 _:1234] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	444	self should:[ self _testNot3:nil _:false] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	445	self should:[ self _testNot3:nil _:true] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	446	self should:[ self _testNot3:nil _:1234] raise:Error.
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	447
b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	448	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	449	self new testNot
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	450	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	451	!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	452
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	453	testOr
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	454	self assert:( ( self _testOr:true _:true ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	455	self assert:( ( self _testOr:true _:false ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	456	self assert:( ( self _testOr:false _:true ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	457	self assert:( ( self _testOr:false _:false ) == false ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	458
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	459	self assert:( ( self _testOr:false _:nil ) == nil ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	460	self assert:( ( self _testOr:true _:nil ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	461	self assert:( ( self _testOr:false _:1234 ) == 1234 ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	462	self assert:( ( self _testOr:true _:1234 ) == true ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	463	self should:[ self _testOr:nil _:false ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	464	self should:[ self _testOr:nil _:true ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	465	self should:[ self _testOr:1234 _:false ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	466	self should:[ self _testOr:1234 _:true ] raise:Error.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	467
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	468	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	469	self new testOr
50 b2444db55fd2 checkin from browser Claus Gittinger <cg@exept.de> parents: 49 diff changeset	470	"
48 022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	471	! !
022fba2b5917 checkin from browser Claus Gittinger <cg@exept.de> parents: 47 diff changeset	472
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	473	!CompilerTest methodsFor:'tests - conditions'!
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	474
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	475	_testIf1:val
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	476	\|x\|
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	477
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	478	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	479	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:[1].
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	480	^ x
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	481
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	482	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	483	self new _testIf1:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	484	self new _testIf1:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	485	self new _testIf1:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	486	self new _testIf1:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	487	self new _testIf1:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	488	self new _testIf1:1
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	489	"
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	490	!
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	491
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	492	_testIf2:val
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	493	\|x\|
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	494
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	495	x := #foo.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	496	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:1.
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	497	^ x
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	498
72ebdb383bdf * empty log message * ca parents: 62 diff changeset	499	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	500	self new _testIf2:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	501	self new _testIf2:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	502	self new _testIf2:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	503	self new _testIf2:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	504	self new _testIf2:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	505	self new _testIf2:1
63 72ebdb383bdf * empty log message * ca parents: 62 diff changeset	506	"
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	507	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	508
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	509	_testIf3:val
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	510	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	511
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	512	x := #foo.
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	513	x := val isInteger ifTrue:1.
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	514	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	515
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	516	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	517	self new _testIf3:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	518	self new _testIf3:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	519	self new _testIf3:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	520	self new _testIf3:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	521	self new _testIf3:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	522	self new _testIf3:1
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	523	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	524	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	525
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	526	_testIf4:val
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	527	^ val isNil
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	528
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	529	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	530	self new _testIf4:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	531	self new _testIf4:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	532	self new _testIf4:nil
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	533	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	534	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	535
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	536	_testIf4:val1 with:val2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	537	^ val1 == nil and:[val2 == nil]
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	538
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	539	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	540	self new _testIf4:#CursorRight with:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	541	self new _testIf4:#CursorRight with:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	542	self new _testIf4:nil with:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	543	self new _testIf4:nil with:nil
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	544	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	545	!
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	546
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	547	_testIf5:val
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	548	^ val isNil ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	549	1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	550	]
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	551
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	552	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	553	self new _testIf5:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	554	self new _testIf5:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	555	self new _testIf5:nil
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	556	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	557	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	558
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	559	_testIf5:val1 with:val2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	560	^ val1 isNil and:[val2 isNil]
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	561
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	562	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	563	self new _testIf5:#CursorRight with:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	564	self new _testIf5:#CursorRight with:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	565	self new _testIf5:nil with:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	566	self new _testIf5:nil with:nil
66 b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	567	"
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	568	!
b2916ceb6d3d * empty log message * Claus Gittinger <cg@exept.de> parents: 65 diff changeset	569
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	570	_testIf6:val
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	571	^ val isNil ifTrue:1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	572
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	573	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	574	self new _testIf6:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	575	self new _testIf6:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	576	self new _testIf6:nil
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	577	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	578	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	579
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	580	_testIf6b:val
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	581	val isNil ifTrue:1
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	582
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	583	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	584	self new _testIf6b:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	585	self new _testIf6b:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	586	self new _testIf6b:nil
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	587	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	588	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	589
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	590	_testIf6c:val
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	591	val isNil ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	592	1
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	593
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	594	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	595	self new _testIf6c:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	596	self new _testIf6c:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	597	self new _testIf6c:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	598	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	599	]
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	600	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	601
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	602	_testIf6d:val
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	603	^ val isNil ifTrue:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	604
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	605	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	606	self new _testIf6d:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	607	self new _testIf6d:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	608	self new _testIf6d:nil
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	609	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	610	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	611
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	612	_testIf6e:val
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	613	^ val isNil ifFalse:val
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	614
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	615	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	616	self new _testIf6e:['hello']
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	617	self new _testIf6e:('hello' asValue)
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	618	self new _testIf6e:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	619	self new _testIf6e:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	620	self new _testIf6e:nil
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	621	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	622	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	623
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	624	_testIf7:val
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	625	^ val ? 1
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	626
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	627	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	628	self new _testIf7:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	629	self new _testIf7:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	630	self new _testIf7:nil
67 8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	631	"
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	632	!
8472595ca0dd * empty log message * Claus Gittinger <cg@exept.de> parents: 66 diff changeset	633
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	634	_testIfElse1:val
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	635	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	636
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	637	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	638	1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	639	] ifFalse:[-1].
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	640	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	641
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	642	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	643	self new _testIfElse1:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	644	self new _testIfElse1:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	645	self new _testIfElse1:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	646	self new _testIfElse1:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	647	self new _testIfElse1:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	648	self new _testIfElse1:1
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	649	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	650	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	651
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	652	_testIfElse2:val
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	653	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	654
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	655	x := (val == #CursorRight or:[val == #CursorDown]) ifTrue:1 ifFalse:-1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	656	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	657
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	658	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	659	self new _testIfElse2:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	660	self new _testIfElse2:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	661	self new _testIfElse2:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	662	self new _testIfElse2:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	663	self new _testIfElse2:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	664	self new _testIfElse2:1
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	665	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	666	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	667
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	668	_testIfElse3:val
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	669	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	670
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	671	x := (val == #CursorRight or:[val isInteger]) ifTrue:1 ifFalse:-1.
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	672	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	673
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	674	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	675	self new _testIfElse3:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	676	self new _testIfElse3:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	677	self new _testIfElse3:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	678	self new _testIfElse3:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	679	self new _testIfElse3:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	680	self new _testIfElse3:1
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	681	"
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	682	!
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	683
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	684	_testIfElse4:val
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	685	\|x\|
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	686
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	687	x := #foo.
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	688	x := val isInteger ifTrue:1 ifFalse:-1.
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	689	^ x
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	690
173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	691	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	692	self new _testIfElse4:#CursorRight
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	693	self new _testIfElse4:#CursorDown
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	694	self new _testIfElse4:#Foo
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	695	self new _testIfElse4:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	696	self new _testIfElse4:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	697	self new _testIfElse4:1
65 173ac32b231b checkin from browser Claus Gittinger <cg@exept.de> parents: 64 diff changeset	698	"
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	699	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	700
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	701	_testIfElse5:val
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	702	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	703
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	704	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	705	x := val ifNil:1 ifNotNil:-1.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	706	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	707
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	708	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	709	self new _testIfElse5:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	710	self new _testIfElse5:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	711	self new _testIfElse5:1
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	712	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	713	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	714
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	715	_testIfElse6:val
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	716	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	717
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	718	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	719	x := val ifNil:[1] ifNotNil:[-1].
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	720	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	721
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	722	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	723	self new _testIfElse6:#CursorUp
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	724	self new _testIfElse6:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	725	self new _testIfElse6:1
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	726	"
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	727	!
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	728
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	729	_testIfElse7:val with:val1 with:val2
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	730	\|x\|
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	731
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	732	x := #foo.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	733	x := val ifNil:val1 ifNotNil:val2.
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	734	^ x
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	735
f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	736	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	737	self new _testIfElse7:#CursorUp with:1 with:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	738	self new _testIfElse7:nil with:1 with:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	739	self new _testIfElse7:1 with:1 with:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	740	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	741	!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	742
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	743	testIf
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	744	self assert:(self _testIf1:#CursorRight) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	745	self assert:(self _testIf1:#CursorDown) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	746	self assert:(self _testIf1:#Foo) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	747	self assert:(self _testIf1:#CursorUp) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	748	self assert:(self _testIf1:nil) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	749	self assert:(self _testIf1:1) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	750
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	751	self assert:(self _testIf2:#CursorRight) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	752	self assert:(self _testIf2:#CursorDown) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	753	self assert:(self _testIf2:#Foo) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	754	self assert:(self _testIf2:#CursorUp) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	755	self assert:(self _testIf2:nil) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	756	self assert:(self _testIf2:1) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	757
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	758	self assert:(self _testIf3:#CursorRight) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	759	self assert:(self _testIf3:#CursorDown) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	760	self assert:(self _testIf3:#Foo) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	761	self assert:(self _testIf3:#CursorUp) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	762	self assert:(self _testIf3:nil) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	763	self assert:(self _testIf3:1) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	764
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	765	self assert:(self _testIf4:#CursorRight) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	766	self assert:(self _testIf4:nil) == true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	767	self assert:(self _testIf4:1) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	768
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	769	self assert:(self _testIf4:#CursorRight with:#CursorDown) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	770	self assert:(self _testIf4:#CursorRight with:nil) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	771	self assert:(self _testIf4:nil with:#CursorDown) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	772	self assert:(self _testIf4:nil with:nil) == true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	773
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	774	self assert:(self _testIf5:#CursorRight) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	775	self assert:(self _testIf5:nil) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	776	self assert:(self _testIf5:1) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	777
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	778	self assert:(self _testIf5:#CursorRight with:#CursorDown) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	779	self assert:(self _testIf5:#CursorRight with:nil) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	780	self assert:(self _testIf5:nil with:#CursorDown) == false.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	781	self assert:(self _testIf5:nil with:nil) == true.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	782
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	783	self assert:(self _testIf6:#CursorRight) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	784	self assert:(self _testIf6:nil) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	785	self assert:(self _testIf6:1) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	786	self assert:(self _testIf6d:#CursorRight) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	787	self assert:(self _testIf6d:nil) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	788	self assert:(self _testIf6d:1) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	789	self assert:(self _testIf6e:#CursorRight) == #CursorRight.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	790	self assert:(self _testIf6e:nil) == nil.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	791	self assert:(self _testIf6e:1) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	792	self assert:(self _testIf7:#CursorRight) == #CursorRight.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	793	self assert:(self _testIf7:nil) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	794	self assert:(self _testIf7:1) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	795
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	796	self assert:(self _testIfElse1:#CursorRight) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	797	self assert:(self _testIfElse1:#CursorDown) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	798	self assert:(self _testIfElse1:#Foo) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	799	self assert:(self _testIfElse1:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	800	self assert:(self _testIfElse1:nil) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	801	self assert:(self _testIfElse1:1) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	802
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	803	self assert:(self _testIfElse2:#CursorRight) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	804	self assert:(self _testIfElse2:#CursorDown) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	805	self assert:(self _testIfElse2:#Foo) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	806	self assert:(self _testIfElse2:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	807	self assert:(self _testIfElse2:nil) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	808	self assert:(self _testIfElse2:1) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	809
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	810	self assert:(self _testIfElse3:#CursorRight) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	811	self assert:(self _testIfElse3:#CursorDown) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	812	self assert:(self _testIfElse3:#Foo) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	813	self assert:(self _testIfElse3:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	814	self assert:(self _testIfElse3:nil) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	815	self assert:(self _testIfElse3:1) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	816
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	817	self assert:(self _testIfElse4:#CursorRight) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	818	self assert:(self _testIfElse4:#CursorDown) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	819	self assert:(self _testIfElse4:#Foo) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	820	self assert:(self _testIfElse4:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	821	self assert:(self _testIfElse4:nil) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	822	self assert:(self _testIfElse4:1) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	823
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	824	self assert:(self _testIfElse5:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	825	self assert:(self _testIfElse5:nil) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	826	self assert:(self _testIfElse5:1) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	827
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	828	self assert:(self _testIfElse6:#CursorUp) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	829	self assert:(self _testIfElse6:nil) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	830	self assert:(self _testIfElse6:1) == -1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	831
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	832	self assert:(self _testIfElse7:#CursorUp with:1 with:2) == 2.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	833	self assert:(self _testIfElse7:nil with:1 with:2) == 1.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	834	self assert:(self _testIfElse7:1 with:1 with:2) == 2.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	835
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	836	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	837	self basicNew testIf
68 f1168eea1026 * empty log message * Claus Gittinger <cg@exept.de> parents: 67 diff changeset	838	"
62 a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	839	! !
a3e1b7b4677a checkin from browser ca parents: 61 diff changeset	840
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841	!CompilerTest methodsFor:'tests - constant folding'!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	843	_testFloat_pi
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844	^ Float pi
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	847	_testFloat_unity
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	^ Float unity
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	851	_testFloat_zero
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	^ Float zero
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	855	_testSmalltalk_if_else_isSmalltalkX
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	Smalltalk isSmalltalkX ifTrue:[
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	857	^ 'yes'
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	858	] ifFalse:[^ 'no']
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	859	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	861	_testSmalltalk_if_else_isVisualWorks
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	Smalltalk isVisualWorks ifTrue:[
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	863	^ 'yes'
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	864	] ifFalse:[^ 'no']
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	867	_testSmalltalk_if_isSmalltalkX
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	Smalltalk isSmalltalkX ifTrue:[
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	869	^ 'yes'
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	870	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	871	^ 'no'
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	872	!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	873
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	874	_testSmalltalk_if_isSqueak
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	875	Smalltalk isSqueak ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	876	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	^ 'no'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	881	_testSmalltalk_if_isVisualWorks
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	Smalltalk isVisualWorks ifTrue:[
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	883	^ 'yes'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884	].
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	^ 'no'
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	888	_testSmalltalk_isSmalltalkX
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	^ Smalltalk isSmalltalkX
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	892	_testSmalltalk_isSqueak
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	^ Smalltalk isSqueak
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	896	_testSmalltalk_isVisualAge
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	897	^ Smalltalk isVisualAge
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	900	_testSmalltalk_isVisualWorks
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	^ Smalltalk isVisualWorks
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902	!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	904	_testUnaryFolding
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	905	self _testFloat_pi ~= (Float perform:#pi) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	906	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	907	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	908	self _testFloat_unity ~= (Float perform:#unity) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	909	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	910	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	911	self _testFloat_zero ~= (Float perform:#zero) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	912	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	913	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	914	self _testSmalltalk_isSmalltalkX ~= (Smalltalk perform:#isSmalltalkX) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	915	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	916	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	917	self _testSmalltalk_isSqueak ~= (Smalltalk perform:#isSqueak) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	918	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	919	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	920	self _testSmalltalk_isVisualWorks ~= (Smalltalk perform:#isVisualWorks) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	921	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	922	].
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	923	self _testSmalltalk_isVisualAge ~= (Smalltalk perform:#isVisualAge) ifTrue:[
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	924	self halt
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	925	]
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	927	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	928	self basicNew _testUnaryFolding
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	929	"
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	! !
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	931
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	932	!CompilerTest methodsFor:'tests - context setup'!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	933
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	934	_testContextA
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	935	ObjectMemory dumpObject:thisContext
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	936
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	937	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	938	self new _testContextA
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	939	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	940	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	941
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	942	_testContextB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	943	ObjectMemory dumpObject:thisContext sender
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	944
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	945	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	946	self new _testContextB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	947	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	948	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	949
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	950	_testContextC
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	951	thisContext fullPrintAll
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	952
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	953	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	954	self new _testContextC
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	955	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	956	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	957
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	958	_testContextD
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	959	self _testContextB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	960
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	961	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	962	self new _testContextD
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	963	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	964	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	965
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	966	_testContextE
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	967	^ thisContext sender
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	968
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	969	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	970	self new _testContextE
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	971	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	972	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	973
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	974	_testContextF
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	975	^ self _testContextE
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	976
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	977	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	978	self new _testContextF
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	979	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	980	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	981
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	982	_testSend0
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	983	^ 9999
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	984	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	985
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	986	_testSend0B:arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	987	^ arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	988	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	989
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	990	_testSend1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	991	^ self _testSend0
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	992
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	993	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	994	self new testSend1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	995	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	996	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	997
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	998	_testSend1B
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	999	^ self _testSend0B:1234
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1000
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1001	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1002	self new testSend1B
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1003	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1004	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1005
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1006	_testSend1C:arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1007	^ self _testSend0B:arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1008
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1009	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1010	self new testSend1C:9998
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1011	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1012	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1013
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1014	_testSend2
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1015	self _testContextB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1016
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1017	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1018	self new testSend2
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1019	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1020	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1021
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1022	_testSend3
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1023	self _testContextC
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1024
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1025	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1026	self new testSend3
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1027	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1028	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1029
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1030	retArgWithFrameA:arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1031	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1032
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1033	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1034	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1035	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1036	^ arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1037
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1038	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1039	self new retArgWithFrameA:999
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1040	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1041	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1042
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1043	retArgWithFrameB:arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1044	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1045
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1046	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1047	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1048	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1049	self retSelf.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1050
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1051	^ arg
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1052
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1053	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1054	self new retArgWithFrameB:9999
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1055	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1056	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1057
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1058	retLocal
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1059	\|a\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1060
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1061	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1062	^ a
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1063
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1064	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1065	self new retLocal
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1066	1000000 timesRepeat:[self new retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1067	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1068	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1069
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1070	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1071	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1072
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1073	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1074	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1075	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1076	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1077
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1078	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1079	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1080	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1081	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1082	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1083	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1084
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1085	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1086	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1087	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1088	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1089	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1090	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1091
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1092
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1093	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1094
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1095	retLocalB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1096	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1097
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1098	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1099	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1100	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1101	^ a
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1102
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1103	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1104	self new retLocalB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1105	1000000 timesRepeat:[self new retLocalB]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1106	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1107	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retLocalB] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1108	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1109
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1110	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1111	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1112
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1113	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1114	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1115	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1116	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1117
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1118	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1119	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1120	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1121	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1122	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1123	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1124
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1125	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1126	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1127	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1128	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1129	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1130	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1131
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1132
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1133	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1134
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1135	retLocalC
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1136	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1137
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1138	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1139	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1140	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1141	^ b
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1142
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1143	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1144	self new retLocalC
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1145	1000000 timesRepeat:[self new retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1146	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1147	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1148
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1149	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1150	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1151
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1152	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1153	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1154	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1155	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1156
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1157	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1158	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1159	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1160	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1161	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1162	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1163
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1164	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1165	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1166	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1167	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1168	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1169	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1170
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1171
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1172	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1173
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1174	retLocalD
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1175	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1176
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1177	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1178	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1179	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1180	^ c
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1181
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1182	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1183	self new retLocalD
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1184	1000000 timesRepeat:[self new retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1185	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1186	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1187
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1188	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1189	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1190
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1191	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1192	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1193	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1194	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1195
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1196	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1197	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1198	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1199	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1200	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1201	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1202
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1203	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1204	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1205	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1206	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1207	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1208	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1209
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1210
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1211	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1212
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1213	retLocalE
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1214	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1215
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1216	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1217	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1218	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1219	^ self
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1220
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1221	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1222	self new retLocalE
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1223	1000000 timesRepeat:[self new retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1224	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1225	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1226
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1227	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1228	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1229
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1230	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1231	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1232	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1233	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1234
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1235	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1236	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1237	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1238	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1239	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1240	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1241
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1242	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1243	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1244	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1245	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1246	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1247	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1248
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1249
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1250	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1251
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1252	retLocalF
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1253	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1254
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1255	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1256	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1257	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1258	self retSelf.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1259
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1260	^ a
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1261
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1262	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1263	self new retLocalF
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1264	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1265
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1266
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1267
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1268	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1269
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1270	retLocalG
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1271	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1272
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1273	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1274	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1275	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1276	self retSelf.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1277
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1278	^ b
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1279
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1280	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1281	self new retLocalG
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1282	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1283
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1284
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1285
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1286	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1287
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1288	retLocalH
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1289	\|a b c\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1290
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1291	a := 0.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1292	b := 1.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1293	c := 2.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1294	self retSelf.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1295
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1296	^ c
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1297
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1298	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1299	self new retLocalH
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1300	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1301
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1302
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1303
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1304	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1305
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1306	retSelf
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1307
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1308
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1309	! !
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1310
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1311	!CompilerTest methodsFor:'tests - entry'!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1312
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1313	ilcMissCheck
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1314
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1315
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1316
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1317	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1318	(Array with:self new with:nil) do:[:el \| el size printCR.].
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1319	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1320
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1321
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1322
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1323	! !
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1324
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1325	!CompilerTest methodsFor:'tests - inlined'!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1326
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1327	_test_even:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1328	^ arg even
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1329
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1330	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1331	self new _test_even:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1332	self new _test_even:123
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1333	self new _test_even:122
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1334	self new _test_even:(100 factorial)
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1335	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1336	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1337
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1338	_test_isInteger:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1339	^ arg isInteger
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1340
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1341	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1342	self new _test_isInteger:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1343	self new _test_isInteger:123
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1344	self new _test_isInteger:(100 factorial)
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1345	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1346	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1347
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1348	_test_isNotInteger:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1349	^ arg isInteger not
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1350
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1351	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1352	self new _test_isNotInteger:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1353	self new _test_isNotInteger:123
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1354	self new _test_isNotInteger:(100 factorial)
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1355	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1356	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1357
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1358	_test_max1:arg1 _:arg2
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1359	^ arg1 max:arg2
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1360
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1361	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1362	self new _test_max1:nil _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1363	self new _test_max1:1 _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1364	self new _test_max1:nil _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1365	self new _test_max1:1 _:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1366	self new _test_max1:2 _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1367
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1368	self new _test_max1:1.0 _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1369	self new _test_max1:nil _:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1370	self new _test_max1:1.0 _:2.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1371	self new _test_max1:2.0 _:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1372
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1373	self new _test_max1:1.0 _:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1374	self new _test_max1:2.0 _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1375	self new _test_max1:1 _:2.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1376	self new _test_max1:2 _:1.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1377	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1378	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1379
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1380	_test_max2:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1381	^ 1 max:arg
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1382
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1383	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1384	self new _test_max2:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1385	self new _test_max2:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1386	self new _test_max2:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1387	self new _test_max2:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1388
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1389	self new _test_max2:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1390	self new _test_max2:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1391	self new _test_max2:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1392	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1393	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1394
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1395	_test_max3:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1396	\|var\|
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1397
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1398	var := Array new:10.
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1399	^ 1 max:arg
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1400
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1401	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1402	self new _test_max3:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1403	self new _test_max3:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1404	self new _test_max3:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1405	self new _test_max3:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1406
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1407	self new _test_max3:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1408	self new _test_max3:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1409	self new _test_max3:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1410	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1411	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1412
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1413	_test_max4:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1414	\|var\|
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1415
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1416	var := Array new:10.
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1417	^ arg max:1
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1418
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1419	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1420	self new _test_max4:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1421	self new _test_max4:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1422	self new _test_max4:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1423	self new _test_max4:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1424
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1425	self new _test_max4:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1426	self new _test_max4:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1427	self new _test_max4:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1428	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1429	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1430
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1431	_test_min1:arg1 _:arg2
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1432	^ arg1 min:arg2
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1433
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1434	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1435	self new _test_min1:nil _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1436	self new _test_min1:1 _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1437	self new _test_min1:nil _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1438	self new _test_min1:1 _:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1439	self new _test_min1:2 _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1440
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1441	self new _test_min1:1.0 _:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1442	self new _test_min1:nil _:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1443	self new _test_min1:1.0 _:2.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1444	self new _test_min1:2.0 _:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1445
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1446	self new _test_min1:1.0 _:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1447	self new _test_min1:2.0 _:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1448	self new _test_min1:1 _:2.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1449	self new _test_min1:2 _:1.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1450	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1451	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1452
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1453	_test_min2:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1454	^ 1 min:arg
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1455
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1456	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1457	self new _test_min2:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1458	self new _test_min2:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1459	self new _test_min2:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1460	self new _test_min2:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1461
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1462	self new _test_min2:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1463	self new _test_min2:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1464	self new _test_min2:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1465	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1466	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1467
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1468	_test_min3:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1469	\|var\|
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1470
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1471	var := Array new:10.
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1472	^ 1 min:arg
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1473
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1474	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1475	self new _test_min3:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1476	self new _test_min3:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1477	self new _test_min3:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1478	self new _test_min3:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1479
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1480	self new _test_min3:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1481	self new _test_min3:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1482	self new _test_min3:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1483	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1484	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1485
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1486	_test_min4:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1487	\|var\|
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1488
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1489	var := Array new:10.
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1490	^ arg min:1
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1491
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1492	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1493	self new _test_min4:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1494	self new _test_min4:0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1495	self new _test_min4:1
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1496	self new _test_min4:2
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1497
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1498	self new _test_min4:0.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1499	self new _test_min4:1.0
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1500	self new _test_min4:2.0
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1501	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1502	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1503
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1504	_test_odd:arg
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1505	^ arg odd
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1506
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1507	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1508	self new _test_odd:nil
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1509	self new _test_odd:123
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1510	self new _test_odd:122
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1511	self new _test_odd:(100 factorial)
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1512	"
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1513	!
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1514
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1515	_test_size
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1516	^ value size
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1517
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1518	"
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1519	(self new value:(Array new:2)) _test_size
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1520	(self new value:(OrderedCollection new:2)) _test_size
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1521	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1522	! !
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1523
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1524	!CompilerTest methodsFor:'tests - instvar access'!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1525
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1526	retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1527	^ value
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1528
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1529	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1530	self new retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1531	1000000 timesRepeat:[self new retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1532	Time millisecondsToRun:[ 1000000 timesRepeat:[self new retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1533	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1534
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1535	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1536	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1537
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1538	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1539	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1540	i retInstVar
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1541	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1542
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1543	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1544	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1545	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1546	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1547	1000000 timesRepeat:[i retInstVar]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1548	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1549
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1550	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1551	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1552	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1553	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1554	Time millisecondsToRun:[ 1000000 timesRepeat:[i retInstVar] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1555	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1556
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1557
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1558	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1559
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1560	setInstVarA
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1561	value := 123
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1562
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1563	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1564	self new setInstVarA; instVarAt:1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1565	1000000 timesRepeat:[self new setInstVarA]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1566	Time millisecondsToRun:[ 1000000 timesRepeat:[self new setInstVarA] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1567	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1568
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1569	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1570	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1571
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1572	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1573	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1574	i setInstVarA.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1575	i instVarAt:1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1576	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1577
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1578
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1579
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1580	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1581
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1582	setInstVarB
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1583	value := 'hello'
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1584
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1585	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1586	self new setInstVarB; instVarAt:1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1587	1000000 timesRepeat:[self new setInstVarB]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1588	Time millisecondsToRun:[ 1000000 timesRepeat:[self new setInstVarB] ]
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1589	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1590
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1591	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1592	\|i\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1593
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1594	i := self new.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1595	i instVarAt:1 put:12345.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1596	i setInstVarB.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1597	i instVarAt:1
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1598	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1599
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1600
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1601
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1602	! !
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1603
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1604	!CompilerTest methodsFor:'tests - literals'!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1605
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1606	compile:someCode
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1607	\|m\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1608
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1609	m := Compiler
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1610	compile:someCode
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1611	forClass:nil
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1612	install:false.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1613
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1614	self assert:(m notNil and:[m ~~ #Error]).
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1615	^ m
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1616	!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1617
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1618	testLiterals
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1619	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1620	self new testLiterals
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1621	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1622	\|m\|
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1623
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1624	"/ literals must be present, even if code has been optimized away
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1625	"/ (otherwise, searches do not work correctly)
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1626
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1627	m := self compile:'foo:arg \|v\| ^ (v ~~ 0) not'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1628	self assert:(m literals includesIdentical:#'~~').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1629	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1630
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1631	m := self compile:'foo:arg \|v\| ^ (v == 0) not'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1632	self assert:(m literals includesIdentical:#'==').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1633	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1634
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1635
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1636	m := self compile:'foo:arg ^ arg not'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1637	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1638
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1639	m := self compile:'foo:arg ^ arg notNil'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1640	self assert:(m literals includesIdentical:#'notNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1641	m := self compile:'foo:arg ^ arg isNil'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1642	self assert:(m literals includesIdentical:#'isNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1643
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1644
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1645	m := self compile:'foo:arg \|v\| v := v+1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1646	self assert:(m literals includesIdentical:#'+').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1647
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1648	m := self compile:'foo:arg \|v\| v := v-1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1649	self assert:(m literals includesIdentical:#'-').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1650
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1651
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1652	m := self compile:'foo:arg \|v\| v := v not'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1653	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1654
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1655
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1656	m := self compile:'foo:arg ^ arg ifTrue:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1657	self assert:(m literals includesIdentical:#'ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1658
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1659	m := self compile:'foo:arg ^ arg ifFalse:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1660	self assert:(m literals includesIdentical:#'ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1661
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1662	m := self compile:'foo:arg ^ arg ifTrue:1 ifFalse:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1663	self assert:(m literals includesIdentical:#'ifTrue:ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1664
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1665	m := self compile:'foo:arg ^ arg ifFalse:1 ifTrue:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1666	self assert:(m literals includesIdentical:#'ifFalse:ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1667
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1668
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1669	m := self compile:'foo:arg ^ arg isNil ifTrue:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1670	self assert:(m literals includesIdentical:#'ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1671	self assert:(m literals includesIdentical:#'isNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1672
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1673	m := self compile:'foo:arg ^ arg isNil ifFalse:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1674	self assert:(m literals includesIdentical:#'ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1675	self assert:(m literals includesIdentical:#'isNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1676
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1677	m := self compile:'foo:arg ^ arg isNil ifTrue:1 ifFalse:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1678	self assert:(m literals includesIdentical:#'ifTrue:ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1679	self assert:(m literals includesIdentical:#'isNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1680
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1681	m := self compile:'foo:arg ^ arg isNil ifFalse:1 ifTrue:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1682	self assert:(m literals includesIdentical:#'ifFalse:ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1683	self assert:(m literals includesIdentical:#'isNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1684
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1685
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1686	m := self compile:'foo:arg ^ arg notNil ifTrue:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1687	self assert:(m literals includesIdentical:#'ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1688	self assert:(m literals includesIdentical:#'notNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1689
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1690	m := self compile:'foo:arg ^ arg notNil ifFalse:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1691	self assert:(m literals includesIdentical:#'ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1692	self assert:(m literals includesIdentical:#'notNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1693
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1694	m := self compile:'foo:arg ^ arg notNil ifTrue:1 ifFalse:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1695	self assert:(m literals includesIdentical:#'ifTrue:ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1696	self assert:(m literals includesIdentical:#'notNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1697
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1698	m := self compile:'foo:arg ^ arg notNil ifFalse:1 ifTrue:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1699	self assert:(m literals includesIdentical:#'ifFalse:ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1700	self assert:(m literals includesIdentical:#'notNil').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1701
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1702
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1703	m := self compile:'foo:arg ^ arg not ifTrue:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1704	self assert:(m literals includesIdentical:#'ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1705	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1706
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1707	m := self compile:'foo:arg ^ arg not ifFalse:1'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1708	self assert:(m literals includesIdentical:#'ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1709	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1710
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1711	m := self compile:'foo:arg ^ arg not ifTrue:1 ifFalse:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1712	self assert:(m literals includesIdentical:#'ifTrue:ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1713	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1714
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1715	m := self compile:'foo:arg ^ arg not ifFalse:1 ifTrue:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1716	self assert:(m literals includesIdentical:#'ifFalse:ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1717	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1718
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1719
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1720	m := self compile:'foo:arg ^ arg and:[true]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1721	self assert:(m literals includesIdentical:#'and:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1722
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1723	m := self compile:'foo:arg ^ arg not and:[true]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1724	self assert:(m literals includesIdentical:#'and:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1725	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1726
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1727	m := self compile:'foo:arg ^ arg or:[true]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1728	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1729
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1730	m := self compile:'foo:arg ^ arg not or:[true]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1731	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1732	self assert:(m literals includesIdentical:#'not').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1733
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1734	m := self compile:'foo:arg ^ (arg or:[true]) ifTrue:[1234]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1735	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1736	self assert:(m literals includesIdentical:#'ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1737
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1738	m := self compile:'foo:arg ^ (arg or:[true]) ifFalse:[1234]'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1739	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1740	self assert:(m literals includesIdentical:#'ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1741
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1742	m := self compile:'foo:arg ^ (arg or:[true]) ifTrue:1 ifFalse:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1743	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1744	self assert:(m literals includesIdentical:#'ifTrue:ifFalse:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1745
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1746	m := self compile:'foo:arg ^ (arg or:[true]) ifFalse:1 ifTrue:2'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1747	self assert:(m literals includesIdentical:#'or:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1748	self assert:(m literals includesIdentical:#'ifFalse:ifTrue:').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1749
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1750
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1751	m := self compile:'foo:arg ^ [ ] loop'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1752	self assert:(m literals includesIdentical:#'loop').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1753
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1754	m := self compile:'foo:arg ^ [ ] repeat'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1755	self assert:(m literals includesIdentical:#'repeat').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1756
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1757	m := self compile:'foo:arg ^ arg ? 123'.
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1758	self assert:(m literals includesIdentical:#'?').
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1759
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1760	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1761	self new testLiterals
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1762	"
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1763	! !
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	1764
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1765	!CompilerTest methodsFor:'tests - method calls'!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1766
189 ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1767	addDumpingMethodForSelfIsLostBug
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1768	\|code mthd\|
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1769
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1770	code :=
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1771	'_x
190 00252e351d79 * empty log message * Claus Gittinger <cg@exept.de> parents: 189 diff changeset	1772	"/ ObjectMemory dumpSender.
189 ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1773	"/ request nextPutAll: ''a''.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1774	ObjectMemory garbageCollect.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1775	ObjectMemory dumpSender.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1776	"/ request nextPutAll: ''b''.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1777	'.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1778
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1779	Class withoutUpdatingChangesDo:[
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1780	mthd := (Smalltalk at:#Compiler)
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1781	compile:code
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1782	in:DummyClass
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1783	notifying:nil
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1784	ifFail:[self error].
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1785	].
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1786	^ mthd
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1787	!
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1788
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1789	addHaltingMethodForSelfIsLostBug
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1790	\|code mthd\|
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1791
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1792	code :=
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1793	'_x
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1794	request nextPutAll: ''a''.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1795	self halt.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1796	ObjectMemory garbageCollect.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1797	self halt.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1798	request nextPutAll: ''b''.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1799	'.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1800
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1801	Class withoutUpdatingChangesDo:[
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1802	mthd := (Smalltalk at:#Compiler)
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1803	compile:code
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1804	in:DummyClass
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1805	notifying:nil
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1806	ifFail:[self error].
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1807	].
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1808	^ mthd
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1809	!
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1810
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1811	addMethodForSelfIsLostBug
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1812	\|code mthd\|
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1813
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1814	code :=
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1815	'_x
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1816	request nextPutAll: ''a''.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1817	ObjectMemory garbageCollect.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1818	request nextPutAll: ''b''.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1819	'.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1820
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1821	Class withoutUpdatingChangesDo:[
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1822	mthd := (Smalltalk at:#Compiler)
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1823	compile:code
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1824	in:DummyClass
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1825	notifying:nil
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1826	ifFail:[self error].
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1827	].
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1828	^ mthd
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1829	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1830
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1831	removeMethodForSelfIsLostBug
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1832	Class withoutUpdatingChangesDo:[
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1833	DummyClass removeSelector:#'_x'.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1834	].
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1835	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1836
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1837	test_selfIsLost1
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1838	\|mthd rcvr retVal str\|
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1839
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1840	str := '' writeStream.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1841
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1842	mthd := self addMethodForSelfIsLostBug.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1843	self removeMethodForSelfIsLostBug.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1844	rcvr := DummyClass new.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1845	rcvr request:str.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1846	retVal := mthd valueWithReceiver:rcvr arguments:#().
191 cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1847	self assert:(retVal == rcvr).
cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1848	self assert:(str contents = 'ab').
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1849
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1850	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1851	self new test_selfIsLost1
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1852	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1853	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1854
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1855	test_selfIsLost2
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1856	\|mthd rcvr retVal str\|
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1857
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1858	str := '' writeStream.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1859
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1860	mthd := self addMethodForSelfIsLostBug.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1861	rcvr := DummyClass new.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1862	rcvr request:str.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1863
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1864	retVal := rcvr perform:#'_x'.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1865
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1866	self removeMethodForSelfIsLostBug.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1867
191 cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1868	self assert:(retVal == rcvr).
cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1869	self assert:(str contents = 'ab').
cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1870
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1871	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1872	self new test_selfIsLost2
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1873	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1874	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1875
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1876	test_selfIsLost3
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1877	\|mthd rcvr retVal\|
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1878
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1879	mthd := DummyClass compiledMethodAt:#'_y0'.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1880
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1881	rcvr := DummyClass new.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1882
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1883	retVal := mthd valueWithReceiver:rcvr arguments:#().
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1884	self assert:(retVal == rcvr).
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1885
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1886	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1887	self new test_selfIsLost3
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1888	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1889	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1890
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1891	test_selfIsLost4
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1892	\|mthd rcvr retVal\|
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1893
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1894	mthd := DummyClass compiledMethodAt:#'_y1:'.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1895
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1896	rcvr := DummyClass new.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1897
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1898	retVal := mthd valueWithReceiver:rcvr arguments:(Array with:rcvr).
191 cbfe2c02da13 * empty log message * Claus Gittinger <cg@exept.de> parents: 190 diff changeset	1899	self assert:(retVal == rcvr).
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1900
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1901	"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1902	self new test_selfIsLost4
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1903	"
189 ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1904	!
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1905
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1906	xtest_selfIsLost5
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1907	\|mthd rcvr retVal str\|
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1908
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1909	str := '' writeStream.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1910
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1911	mthd := self addHaltingMethodForSelfIsLostBug.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1912	self removeMethodForSelfIsLostBug.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1913	rcvr := DummyClass new.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1914	rcvr request:str.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1915	retVal := mthd valueWithReceiver:rcvr arguments:#().
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1916
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1917	"
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1918	self new xtest_selfIsLost5
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1919	"
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1920	!
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1921
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1922	xtest_selfIsLost6
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1923	\|mthd rcvr retVal str\|
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1924
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1925	str := '' writeStream.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1926
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1927	mthd := self addDumpingMethodForSelfIsLostBug.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1928	self removeMethodForSelfIsLostBug.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1929	rcvr := DummyClass new.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1930	rcvr request:str.
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1931	retVal := mthd valueWithReceiver:rcvr arguments:#().
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1932
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1933	"
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1934	self new xtest_selfIsLost6
ca40184d02a2 * empty log message * Claus Gittinger <cg@exept.de> parents: 188 diff changeset	1935	"
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1936	! !
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1937
113 91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1938	!CompilerTest methodsFor:'tests - parsing'!
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1939
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1940	testParseBadLiteral
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1941	self assert:( (self class compile:'foo ^ #( a b ( c d (' ) == #Error ) .
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1942	self assert:( (self class compile:'foo ^ #( a b ( c d ()' ) == #Error ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1943	self assert:( (self class compile:'foo ^ #( a b ( c d ())' ) == #Error ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1944	self assert:( (self class compile:'foo ^ #( a b ( c d ()))' ) ~~ #Error ).
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1945	self class removeSelector:#foo.
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1946
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1947	"
91aad82979e3 * empty log message * Claus Gittinger <cg@exept.de> parents: 88 diff changeset	1948	self new testParseBadLiteral
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1949	"
318 3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1950	!
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1951
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1952	testParseExtendedSyntax
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1953	\|compiler val\|
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1954
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1955	compiler := Parser new.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1956	val := compiler evaluate:' ''12\t34'' '.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1957	self assert:( val = '12\t34' ) .
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1958	val := compiler evaluate:' ''12\u161634'' '.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1959	self assert:( val = '12\u161634' ) .
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1960
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1961	compiler parserFlags allowExtendedSTXSyntax:true.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1962	val := compiler evaluate:' ''12\t34'' '.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1963	self assert:( val = ('12' , Character tab , '34' )) .
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1964	val := compiler evaluate:' ''12\u161634'' '.
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1965	self assert:( val = ('12' , (Character value:16r1616) , '34' )) .
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1966
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1967	"
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1968	self new testParseExtendedSyntax
3f9278118c94 * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	1969	"
87 93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1970	! !
93fcd29f4c9a * empty log message * Claus Gittinger <cg@exept.de> parents: 86 diff changeset	1971
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1972	!CompilerTest methodsFor:'tests - return'!
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1973
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1974	test_bad_return2
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1975	\|w a\|
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1976
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1977	w := ParserFlags warnAboutPossibleSTCCompilationProblems.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1978	a := ParserFlags allowPossibleSTCCompilationProblems.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1979
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1980	[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1981	ParserFlags warnAboutPossibleSTCCompilationProblems:true.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1982	ParserFlags allowPossibleSTCCompilationProblems:false.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1983
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1984	self
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1985	should:
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1986	[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1987	Compiler
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1988	compile:'
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1989	foo:arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1990	^ arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1991	ifTrue:[^ 1]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1992	ifFalse:[2]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	1993	'
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1994	forClass:self class.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1995	]
587 ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	1996	raise:Parser parseErrorSignal
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1997	] ensure:[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1998	ParserFlags warnAboutPossibleSTCCompilationProblems:w.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	1999	ParserFlags allowPossibleSTCCompilationProblems:a.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2000	].
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2001
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2002	"Created: / 16-11-2006 / 14:08:48 / cg"
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2003	!
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2004
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2005	test_bad_return3
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2006	\|w a setOfSignals\|
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2007
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2008	w := ParserFlags warnAboutPossibleSTCCompilationProblems.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2009	a := ParserFlags allowPossibleSTCCompilationProblems.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2010
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2011	[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2012	ParserFlags warnAboutPossibleSTCCompilationProblems:false.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2013	ParserFlags allowPossibleSTCCompilationProblems:true.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2014
587 ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	2015	setOfSignals := SignalSet with:(Parser parseErrorSignal) with:(Parser parseWarningSignal).
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2016	self
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2017	shouldnt:
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2018	[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2019	Compiler
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2020	compile:'
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2021	foo:arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2022	^ arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2023	ifTrue:[^ 1]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2024	ifFalse:[2]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2025	'
329 f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2026	forClass:self class.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2027	]
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2028	raise:setOfSignals.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2029	] ensure:[
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2030	ParserFlags warnAboutPossibleSTCCompilationProblems:w.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2031	ParserFlags allowPossibleSTCCompilationProblems:a.
f016dcc761f4 * empty log message * Claus Gittinger <cg@exept.de> parents: 328 diff changeset	2032	]
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2033
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2034	"Created: / 16-11-2006 / 14:33:29 / cg"
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2035	!
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2036
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2037	test_good_return1
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2038	\|setOfPossibleExceptions\|
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2039
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2040	setOfPossibleExceptions := SignalSet with:(Parser::ParseWarning) with:(Parser::ParseError).
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2041	self
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2042	shouldnt:
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2043	[
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2044	Compiler
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2045	compile:'
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2046	foo:arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2047	arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2048	ifTrue:[^ 1]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2049	ifFalse:[^ 2]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2050	'
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2051	forClass:self class.
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2052	]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2053	raise:setOfPossibleExceptions.
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2054
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2055	"Created: / 16-11-2006 / 14:16:53 / cg"
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2056	!
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2057
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2058	test_good_return2
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2059	\|setOfPossibleExceptions\|
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2060
587 ae93cf33a668 #tearDown Claus Gittinger <cg@exept.de> parents: 578 diff changeset	2061	setOfPossibleExceptions := SignalSet with:(Parser parseWarningSignal) with:(Parser parseErrorSignal).
328 6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2062	self
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2063	shouldnt:
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2064	[
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2065	Compiler
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2066	compile:'
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2067	foo:arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2068	^ arg
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2069	ifTrue:[1]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2070	ifFalse:[2]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2071	'
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2072	forClass:self class.
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2073	]
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2074	raise:setOfPossibleExceptions.
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2075
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2076	"Created: / 16-11-2006 / 14:41:45 / cg"
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2077	! !
6abee6197420 * empty log message * Claus Gittinger <cg@exept.de> parents: 318 diff changeset	2078
84 b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2079	!CompilerTest methodsFor:'tests - sends'!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2080
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2081	m1
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2082	^ 123
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2083	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2084
85 c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2085	m10
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2086	^ self m9
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2087
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2088	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2089	self new m10
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2090	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2091	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2092
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2093	m11
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2094	^ self m10
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2095
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2096	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2097	self new m11
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2098	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2099	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2100
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2101	m12
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2102	^ self m11
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2103
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2104	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2105	self new m12
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2106	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2107	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2108
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2109	m13
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2110	^ self m12
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2111
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2112	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2113	self new m13
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2114	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2115	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2116
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2117	m14
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2118	^ self m13
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2119
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2120	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2121	self new m14
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2122	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2123	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2124
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2125	m15
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2126	^ self m14
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2127
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2128	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2129	self new m15
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2130	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2131	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2132
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2133	m16
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2134	^ self m15
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2135
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2136	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2137	self new m16
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2138	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2139	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2140
84 b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2141	m2
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2142	^ self m1
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2143	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2144
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2145	m3
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2146	^ self m2
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2147	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2148
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2149	m4
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2150	^ self m3
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2151	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2152
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2153	m5
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2154	^ self m4
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2155	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2156
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2157	m6
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2158	^ self m5
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2159	!
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2160
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2161	m7
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2162	^ self m6
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2163
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2164	"
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2165	self new m7
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2166	"
85 c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2167	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2168
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2169	m8
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2170	^ self m7
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2171
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2172	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2173	self new m8
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2174	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2175	!
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2176
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2177	m9
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2178	^ self m8
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2179
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2180	"
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2181	self new m9
c3c03802bffb checkin from browser Claus Gittinger <cg@exept.de> parents: 84 diff changeset	2182	"
84 b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2183	! !
b305dc81a9b5 checkin from browser Claus Gittinger <cg@exept.de> parents: 83 diff changeset	2184
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2185	!CompilerTest methodsFor:'tests - specials'!
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2186
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2187	testEnsure
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2188	self assert:(self callEnsureWith2Returns = true).
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2189
569 e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2190	Error handle:[:ex \|
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2191	ex proceed
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2192	] do:[
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2193	self assert:(self callEnsureWithException = true).
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2194	].
e16012b59e29 added: #callEnsureWithException Claus Gittinger <cg@exept.de> parents: 568 diff changeset	2195
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2196	"Created: / 24-08-2010 / 12:51:27 / cg"
213 9764b38bebf5 test for all literals to be present in the method Claus Gittinger <cg@exept.de> parents: 191 diff changeset	2197	! !
9764b38bebf5 test for all literals to be present in the method Claus Gittinger <cg@exept.de> parents: 191 diff changeset	2198
577 e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2199	!CompilerTest methodsFor:'tests - stc compilation'!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2200
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2201	testCodeForMethodVarAccess
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2202	"compile this with stc - some gcc versions generate wrong code for it (result is nil)"
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2203
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2204	\|results renderNone allSchedules overallCount passedCount inconclusiveCount failedCount\|
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2205
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2206	self x_executeBlock:[
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2207	\|localResults localPassedCount localInconclusiveCount\|
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2208
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2209	allSchedules := self x_generateSchedules.
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2210
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2211	overallCount := allSchedules size.
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2212	(renderNone := (overallCount == 0)) ifFalse:[
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2213	results := allSchedules collect:[:ts \| ts getStateOfLastRun].
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2214
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2215	passedCount := results count:[:state \| state isSuccess].
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2216	inconclusiveCount := results count:[:state \| state isInconclusive].
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2217
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2218	failedCount := overallCount - passedCount - inconclusiveCount.
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2219	]
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2220	].
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2221	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2222
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2223	x_executeBlock:aBlock
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2224	aBlock value
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2225	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2226
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2227	x_generateSchedules
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2228	^ OrderedCollection
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2229	with:(Schedule new state:#failed)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2230	with:(Schedule new state:#passed)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2231	with:(Schedule new state:#passed)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2232	with:(Schedule new state:#failed)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2233	with:(Schedule new state:#inconclusive)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2234	with:(Schedule new state:#inconclusive)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2235	with:(Schedule new state:#inconclusive)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2236	with:(Schedule new state:#failed)
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2237	! !
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2238
188 b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2239	!CompilerTest::DummyClass methodsFor:'accessing'!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2240
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2241	_y0
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2242	ObjectMemory garbageCollect.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2243	^ self.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2244	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2245
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2246	_y1:arg1
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2247	ObjectMemory garbageCollect.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2248	^ arg1.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2249	!
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2250
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2251	request:something
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2252	"set the value of the instance variable 'request' (automatically generated)"
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2253
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2254	request := something.
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2255	! !
b6c959b4f5ce * empty log message * Claus Gittinger <cg@exept.de> parents: 181 diff changeset	2256
577 e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2257	!CompilerTest::Schedule methodsFor:'accessing'!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2258
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2259	getStateOfLastRun
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2260	^ State new state:state
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2261	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2262
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2263	state:aSymbol
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2264	state := aSymbol
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2265	! !
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2266
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2267	!CompilerTest::Schedule::State methodsFor:'accessing'!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2268
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2269	state
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2270	^ state
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2271	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2272
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2273	state:something
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2274	state := something.
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2275	! !
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2276
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2277	!CompilerTest::Schedule::State methodsFor:'queries'!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2278
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2279	isInconclusive
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2280	^ state == #inconclusive
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2281	!
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2282
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2283	isSuccess
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2284	^ state == #passed
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2285	! !
e4b7386d1437 class definition Michael Beyl <mb@exept.de> parents: 569 diff changeset	2286
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2287	!CompilerTest class methodsFor:'documentation'!
3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2288
568 2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2289	version_CVS
2d5d66196b5e +testEnsure Claus Gittinger <cg@exept.de> parents: 329 diff changeset	2290	^ '$Header$'
47 3258d44978a0 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2291	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 05 Jul 2011 18:22:37 +0200
changeset 587	ae93cf33a668
parent 578	649bd275c083
child 648	23f70a4ece05
permissions	-rw-r--r--