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

1447 2351db93aa5b package changes Claus Gittinger <cg@exept.de> parents: 996 diff changeset	1	"{ Package: 'stx:goodies/regression' }"
558 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
1504 6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	43	callConstant98765
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	44	^ self returnConstant98765
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	45
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	46	"Created: / 11-07-2016 / 06:26:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	47	"Modified: / 11-07-2016 / 08:49:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	48	!
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	49
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	50	returnConstant12345
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	51	^ 12345
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	52
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	53	"Created: / 11-07-2016 / 08:48:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	54	!
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	55
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56	returnConstant98765
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	^ 98765
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	! !
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60	!BehaviorLookupObjectTests methodsFor:'tests'!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	testLookupObject_01a
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	self should:[ ClassWithSpecialLookup new x ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	"/ at some time during the development, it crashed the second time,
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	"/ due to a badly updated inlineCache
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	68	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69	self should:[ ClassWithSpecialLookup new x ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	71
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	testLookupObject_01b
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	\|firstException rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	firstException := true.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	76
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	"/ catch it, and proceed without a method (leads to another dnu)...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	firstException ifTrue:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	80	firstException := false.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	82	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	83	self assert:(ex suspendedContext sender sender sender selector == #x).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	84
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	85	"/ Remove the lookup object (the original test has been written
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	86	"/ for implementation that flushes the lookup object)
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	87	ClassWithSpecialLookup setLookupObject:nil.
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	88	ObjectMemory flushInlineCaches.
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	89
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	ex proceedWith:nil.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	].
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94	self assert:(ex suspendedContext sender selector == #x).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	ex proceedWith:12345.
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 = 12345).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	103
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	104	"Modified: / 11-07-2016 / 06:21:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	106
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	testLookupObject_01c
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108	\|rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	"/ catch it, and proceed with a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	113	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	114	self assert:(ex suspendedContext sender sender sender selector == #x).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	] do:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	ObjectMemory flushInlineCaches.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	rslt := ClassWithSpecialLookup new x
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	].
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	self assert:(rslt = 98765).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	124
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	125	"Modified: / 10-07-2016 / 00:31:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	testLookupObject_02
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129	"/ check lookupObject with 2.. arguments
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	130	ClassWithSpecialLookup setLookupObject:BadLookupClass.
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	self should:[ ClassWithSpecialLookup new x:1234 ] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	133	ClassWithSpecialLookup setLookupObject:BadLookupClass.
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	self should:[ ClassWithSpecialLookup new a1:1 a2:2] raise:MessageNotUnderstood.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	136	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	137	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	138
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	139	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	140	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	141
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	142	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	143	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	144
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	145	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	146	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	147
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	148	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	149	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	150
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	151	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	152	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	153	!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	testLookupObject_02c
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	\|rslt\|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158	"/ catch it, and proceed with a method...
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	159
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	160	"/ 1 arg...
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	161	MessageNotUnderstood handle:[:ex \|
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	162	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	163	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	164	self assert:(ex suspendedContext sender sender sender selector == #x:).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	"/ here, we return a method...
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167	] do:[
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	ClassWithSpecialLookup setLookupObject:BadLookupClass.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	ObjectMemory flushInlineCaches.
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	170	rslt := ClassWithSpecialLookup new x:1234
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171	].
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	172	self assert:(rslt = 98765).
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	173
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	174	"/ 2 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	175	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	176	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	177	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	178	self assert:(ex suspendedContext sender sender sender selector == #a:b:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	179	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	180	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	181	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	182	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	183	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	184	rslt := ClassWithSpecialLookup new a:1 b:2
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	185	].
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	self assert:(rslt = 98765).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	187
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	188	"/ 3 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	189	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	190	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	191	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	192	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	193	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	194	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	195	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	196	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	197	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	198	rslt := ClassWithSpecialLookup new a:1 b:2 c:3
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	199	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	200	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	201
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	202	"/ 4 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	203	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	204	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	205	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	206	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	207	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	208	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	209	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	210	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	211	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	212	rslt := ClassWithSpecialLookup new a:1 b:2 c:3 d:4
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	213	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	214	self assert:(rslt = 98765).
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	"/ 5 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	217	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	218	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	219	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	220	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	221	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	222	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	223	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	224	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	225	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	226	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	227	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	228	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	229
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	230	"/ 6 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	231	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	232	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	233	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	234	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:).
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
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	"/ 7 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:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	247	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	248	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	249	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	250	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	251	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	252	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	253	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	254	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	255	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	256	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	257
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	258	"/ 8 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	259	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	260	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	261	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	262	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	263	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	264	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	265	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	266	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	267	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	268	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	269	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	270	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	271
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	272	"/ 9 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	273	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	274	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	275	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	276	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	277	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	278	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	279	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	280	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	281	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	282	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	283	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	284	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	285
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	286	"/ 10 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	287	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	288	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	289	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	290	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	291	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	292	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	293	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	294	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	295	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	296	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	297	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	298	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	299
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	300	"/ 11 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	301	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	302	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	303	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	304	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	305	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	306	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	307	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	308	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	309	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	310	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	311	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	312	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	313
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	314	"/ 12 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	315	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	316	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	317	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	318	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	319	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	320	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	321	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	322	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	323	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	324	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	325	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	326	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	327
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	328	"/ 13 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	329	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	330	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	331	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	332	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	333	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	334	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	335	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	336	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	337	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	338	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	339	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	340	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	341
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	342	"/ 14 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	343	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	344	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	345	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	346	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	347	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	348	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	349	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	350	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	351	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	352	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	353	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	354	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	355
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	356	"/ 15 args...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	357	MessageNotUnderstood handle:[:ex \|
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	358	self assert:(ex suspendedContext selector == #doesNotUnderstand:).
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	359	self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	360	self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:).
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	361	"/ here, we return a method...
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	362	ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	363	] do:[
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	364	ClassWithSpecialLookup setLookupObject:BadLookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	365	ObjectMemory flushInlineCaches.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	366	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	367	].
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	368	self assert:(rslt = 98765).
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	369
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	370	"Modified: / 10-07-2016 / 00:27:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	371	!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	372
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	373	testLookupObject_03
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	374	"/ check good lookupObject with 0.. arguments
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	375	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	376	self assert:( ClassWithSpecialLookup new x ) = 12345.
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	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	379	self assert:( ClassWithSpecialLookup new x:1234 ) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	380
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	381	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	382	self should:( ClassWithSpecialLookup new a1:1 a2:2) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	383
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	384	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	385	self should:( ClassWithSpecialLookup new a1:1 a2:2 a3:3) = 12345.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	386
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	387	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	388	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	389
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	390	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	391	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	392
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	393	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	394	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	395
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	396	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	397	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	398
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	399	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	400	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	401
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	402	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	403	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	404
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	405	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	406	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	407
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	408	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	409	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	410
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	411	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	412	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	413
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	414	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	415	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	416
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	417	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	418	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	419
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	420	ClassWithSpecialLookup setLookupObject:LookupClass.
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	421	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.
1504 6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	422	!
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	423
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	424	testLookupObject_04
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	425	\| x \|
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	426	self assert: self callConstant98765 == 98765.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	427	[
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	428
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	429	(self class compiledMethodAt: #callConstant98765) setLookupObject: LookupClass.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	430	ObjectMemory flushCaches.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	431	ObjectMemory debugBreakPoint3.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	432	x := self callConstant98765.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	433	self assert: x == 12345.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	434	] ensure:[
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	435	(self class compiledMethodAt: #callConstant98765) setLookupObject: nil.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	436	ObjectMemory flushCaches.
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	437	].
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	438
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	439	"Created: / 11-07-2016 / 06:25:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6bda790dc68a Issue #73: Added test for caller-specified lookup object Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1503 diff changeset	440	"Modified: / 11-07-2016 / 08:49:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	441	! !
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	!BehaviorLookupObjectTests::LookupClass class methodsFor:'lookup'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	444
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	445	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	446	^ self compiledMethodAt:#returnConstant12345
996 b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	447	!
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	448
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	449	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext ilc: ilc
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	450	^ self compiledMethodAt:#returnConstant12345
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	451
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	452	"Created: / 04-09-2013 / 19:25:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	453	! !
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	454
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	455	!BehaviorLookupObjectTests::LookupClass methodsFor:'trap methods'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	456
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	457	returnConstant12345
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	458	^ 12345
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	459	! !
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	460
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	461	!BehaviorLookupObjectTests::NilReturningLookupClass class methodsFor:'lookup'!
92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	462
560 cf65fb8e9c54 changed: Claus Gittinger <cg@exept.de> parents: 559 diff changeset	463	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext
559 92ef051a8990 * empty log message * Claus Gittinger <cg@exept.de> parents: 558 diff changeset	464	^ nil
996 b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	465	!
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	466
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	467	lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext ilc: ilc
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	468	^ nil
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	469
b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	470	"Created: / 04-09-2013 / 19:26:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	471	! !
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	472
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	473	!BehaviorLookupObjectTests class methodsFor:'documentation'!
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	474
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	475	version_CVS
42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	^ '$Header$'
1503 1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	477	!
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	478
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	479	version_HG
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	480
1551e9fd9a91 Issue #73: Added (and fixed) BehaviorLookupObjectTests to standard test suite. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1447 diff changeset	481	^ '$Changeset: <not expanded> $'
558 42dd167a9462 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	! !
996 b2247dd458ed class: RegressionTests::BehaviorLookupObjectTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 561 diff changeset	483

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 31 May 2017 07:27:55 +0100
branch	jv
changeset 1604	550ad2d68e2a
parent 1504	6bda790dc68a
child 1974	f2eaf05205d6
permissions	-rw-r--r--