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

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

author	Claus Gittinger <cg@exept.de>
	Tue, 09 Jul 2019 18:53:03 +0200
changeset 2327	bf482d49aeaf
parent 2239	b460804ce9fc
permissions	-rw-r--r--