hg/stx-goodies-regression: RegressionTests__BehaviorLookupObjectTests.st@cf65fb8e9c54 (annotated)

558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'exept:regression' }"
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ NameSpace: RegressionTests }"
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	TestCase subclass:#BehaviorLookupObjectTests
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'tests-Regression'
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	Object subclass:#BadLookupClass
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	instanceVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	classVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	poolDictionaries:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	privateIn:BehaviorLookupObjectTests
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	Object subclass:#ClassWithSpecialLookup
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	instanceVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	classVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	poolDictionaries:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	privateIn:BehaviorLookupObjectTests
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	Object subclass:#LookupClass
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	instanceVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	classVariableNames:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	poolDictionaries:''
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	privateIn:BehaviorLookupObjectTests
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	33	Object subclass:#NilReturningLookupClass
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	34	instanceVariableNames:''
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	35	classVariableNames:''
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	36	poolDictionaries:''
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	37	privateIn:BehaviorLookupObjectTests
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	38	!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	39
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!BehaviorLookupObjectTests methodsFor:'helpers'!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	returnConstant98765
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	^ 98765
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	!BehaviorLookupObjectTests methodsFor:'tests'!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	testLookupObject_01a
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	self should:[ ClassWithSpecialLookup new x ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	"/ at some time during the development, it crashed the second time,
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"/ due to a badly updated inlineCache
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	self should:[ ClassWithSpecialLookup new x ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	testLookupObject_01b
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	\|firstException rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	firstException := true.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	"/ catch it, and proceed without a method (leads to another dnu)...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	firstException ifTrue:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	firstException := false.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	69	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	70
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	ex proceedWith:nil.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	].
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	self assert:(ex suspendedContext sender selector == #x).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76	ex proceedWith:12345.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	] do:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	ObjectMemory flushInlineCaches.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	rslt := ClassWithSpecialLookup new x
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	].
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	83	self assert:(rslt = 12345).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	84	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	85
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86	testLookupObject_01c
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	\|rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	"/ catch it, and proceed with a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	92	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	93	self assert:(ex suspendedContext sender sender selector == #x).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	] do:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	ObjectMemory flushInlineCaches.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	rslt := ClassWithSpecialLookup new x
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	].
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	self assert:(rslt = 98765).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	testLookupObject_02
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106	"/ check lookupObject with 2.. arguments
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	107	ClassWithSpecialLookup setLookupObject:BadLookupClass.
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	self should:[ ClassWithSpecialLookup new x:1234 ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	110	ClassWithSpecialLookup setLookupObject:BadLookupClass.
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	self should:[ ClassWithSpecialLookup new a1:1 a2:2] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	113	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	114	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3] raise:MessageNotUnderstood.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	115
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	116	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	117	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4] raise:MessageNotUnderstood.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	118
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	119	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	120	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5] raise:MessageNotUnderstood.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	121
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	122	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	123	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6] raise:MessageNotUnderstood.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	124
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	125	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	126	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7] raise:MessageNotUnderstood.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	127
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	128	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	129	self should:[ ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8] raise:MessageNotUnderstood.
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132	testLookupObject_02c
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	\|rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	"/ catch it, and proceed with a method...
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	136
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	137	"/ 1 arg...
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	140	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	141	self assert:(ex suspendedContext sender sender selector == #x:).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	] do:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	ObjectMemory flushInlineCaches.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	rslt := ClassWithSpecialLookup new x:1234
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	].
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	149	self assert:(rslt = 98765).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	151	"/ 2 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	152	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	153	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	154	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	155	self assert:(ex suspendedContext sender sender selector == #a:b:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	156	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	157	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	158	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	159	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	160	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	161	rslt := ClassWithSpecialLookup new a:1 b:2
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	162	].
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	163	self assert:(rslt = 98765).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	164
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	165	"/ 3 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	166	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	167	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	168	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	169	self assert:(ex suspendedContext sender sender selector == #a:b:c:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	170	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	171	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	172	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	173	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	174	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	175	rslt := ClassWithSpecialLookup new a:1 b:2 c:3
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	176	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	177	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	178
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	179	"/ 4 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	180	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	181	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	182	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	183	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	184	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	185	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	186	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	187	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	188	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	189	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	190	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	191
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	192	"/ 5 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	193	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	194	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	195	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	196	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	197	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	198	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	199	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	200	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	201	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	202	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	203	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	204
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	205	"/ 6 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	206	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	207	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	208	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	209	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	210	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	211	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	212	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	213	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	214	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	215	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	216	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	217
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	218	"/ 7 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	219	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	220	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	221	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	222	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	223	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	224	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	225	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	226	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	227	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	228	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	229	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	230
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	231	"/ 8 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	232	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	233	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	234	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	235	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	236	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	237	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	238	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	239	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	240	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	241	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	242	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	243
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	244	"/ 9 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	245	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	246	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	247	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	248	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	249	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	250	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	251	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	252	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	253	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	254	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	255	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	256
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	257	"/ 10 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	258	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	259	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	260	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	261	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	262	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	263	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	264	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	265	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	266	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	267	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	268	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	269
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	270	"/ 11 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	271	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	272	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	273	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	274	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	275	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	276	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	277	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	278	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	279	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	280	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	281	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	282
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	283	"/ 12 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	284	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	285	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	286	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	287	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	288	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	289	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	290	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	291	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	292	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	293	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	294	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	295
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	296	"/ 13 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	297	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	298	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	299	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	300	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	301	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	302	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	303	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	304	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	305	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	306	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	307	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	308
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	309	"/ 14 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	310	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	311	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	312	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	313	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	314	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	315	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	316	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	317	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	318	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13 n:14
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	319	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	320	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	321
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	322	"/ 15 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	323	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	324	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	325	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	326	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	327	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	328	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	329	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	330	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	331	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13 n:14 o:15
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	332	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	333	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	334	!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	335
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	336	testLookupObject_02d
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	337	\|rslt\|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	338
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	339	"/ lookup returns nil (for dnu); catch it, and proceed with a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	340
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	341	"/ 1 arg...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	342	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	343	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	344	self assert:(ex suspendedContext sender selector == #x:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	345	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	346	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	347	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	348	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	349	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	350	rslt := ClassWithSpecialLookup new x:1234
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	351	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	352	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	353
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	354	"/ 2 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	355	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	356	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	357	self assert:(ex suspendedContext sender selector == #a:b:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	358	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	359	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	360	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	361	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	362	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	363	rslt := ClassWithSpecialLookup new a:1 b:2
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	364	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	365	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	366
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	367	"/ 3 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	368	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	369	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	370	self assert:(ex suspendedContext sender selector == #a:b:c:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	371	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	372	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	373	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	374	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	375	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	376	rslt := ClassWithSpecialLookup new a:1 b:2 c:3
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	377	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	378	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	379
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	380	"/ 4 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	381	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	382	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	383	self assert:(ex suspendedContext sender selector == #a:b:c:d:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	384	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	385	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	386	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	387	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	388	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	389	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	390	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	391	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	392
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	393	"/ 5 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	394	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	395	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	396	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	397	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	398	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	399	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	400	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	401	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	402	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	403	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	404	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	405
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	406	"/ 6 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	407	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	408	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	409	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	410	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	411	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	412	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	413	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	414	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	415	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	416	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	417	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	418
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	419	"/ 7 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	420	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	421	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	422	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	423	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	424	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	425	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	426	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	427	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	428	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	429	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	430	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	431
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	432	"/ 8 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	433	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	434	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	435	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	436	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	437	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	438	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	439	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	440	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	441	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	442	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	443	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	444
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	445	"/ 9 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	446	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	447	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	448	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	449	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	450	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	451	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	452	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	453	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	454	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	455	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	456	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	457
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	458	"/ 10 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	459	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	460	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	461	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	462	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	463	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	464	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	465	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	466	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	467	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	468	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	469	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	470
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	471	"/ 11 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	472	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	473	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	474	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:k:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	475	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	476	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	477	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	478	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	479	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	480	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	481	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	482	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	483
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	484	"/ 12 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	485	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	486	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	487	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	488	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	489	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	490	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	491	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	492	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	493	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	494	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	495	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	496
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	497	"/ 13 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	498	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	499	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	500	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	501	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	502	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	503	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	504	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	505	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	506	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	507	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	508	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	509
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	510	"/ 14 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	511	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	512	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	513	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	514	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	515	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	516	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	517	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	518	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	519	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13 n:14
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	520	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	521	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	522
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	523	"/ 15 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	524	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	525	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	526	self assert:(ex suspendedContext sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	527	"/ here, we return a value...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	528	ex proceedWith:6666.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	529	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	530	ClassWithSpecialLookup setLookupObject:NilReturningLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	531	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	532	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4 e:5 f:6 g:7 h:8 i:9 j:10 k:11 l:12 m:13 n:14 o:15
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	533	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	534	self assert:(rslt = 6666).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	535	!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	536
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	537	testLookupObject_03
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	538	"/ check good lookupObject with 0.. arguments
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	539	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	540	self assert:( ClassWithSpecialLookup new x ) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	541
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	542	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	543	self assert:( ClassWithSpecialLookup new x:1234 ) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	544
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	545	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	546	self should:( ClassWithSpecialLookup new a1:1 a2:2) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	547
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	548	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	549	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	550
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	551	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	552	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	553
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	554	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	555	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	556
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	557	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	558	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	559
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	560	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	561	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	562
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	563	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	564	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	565
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	566	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	567	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	568
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	569	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	570	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	571
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	572	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	573	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	574
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	575	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	576	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11 a12:12) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	577
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	578	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	579	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11 a12:12 a13:13) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	580
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	581	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	582	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11 a12:12 a13:13 a14:14) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	583
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	584	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	585	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3 a4:4 a5:5 a6:6 a7:7 a8:8 a9:9 a10:10 a11:11 a12:12 a13:13 a14:14 a15:15) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	586	! !
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	587
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	588	!BehaviorLookupObjectTests::LookupClass class methodsFor:'lookup'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	589
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	590	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	591	^ self compiledMethodAt:#returnConstant12345
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	592	! !
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	593
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	594	!BehaviorLookupObjectTests::LookupClass methodsFor:'trap methods'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	595
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	596	returnConstant12345
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	597	^ 12345
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	598	! !
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	599
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	600	!BehaviorLookupObjectTests::NilReturningLookupClass class methodsFor:'lookup'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	601
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	602	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	603	^ nil
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	604	! !
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	!BehaviorLookupObjectTests class methodsFor:'documentation'!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608	version_CVS
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609	^ '$Header$'
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	610	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 07 Apr 2010 18:43:40 +0200
changeset 560	cf65fb8e9c54
parent 559	92ef051a8990
child 561	0588a5f296fa
permissions	-rw-r--r--