diff -r 92ef051a8990 -r cf65fb8e9c54 RegressionTests__BehaviorLookupObjectTests.st --- a/RegressionTests__BehaviorLookupObjectTests.st Wed Apr 07 17:14:29 2010 +0200 +++ b/RegressionTests__BehaviorLookupObjectTests.st Wed Apr 07 18:43:40 2010 +0200 @@ -66,7 +66,8 @@ firstException ifTrue:[ firstException := false. self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). + "/ here, we return a method... ex proceedWith:nil. ]. @@ -88,7 +89,8 @@ "/ catch it, and proceed with a method... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). + self assert:(ex suspendedContext sender sender selector == #x). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -135,7 +137,8 @@ "/ 1 arg... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). + self assert:(ex suspendedContext sender sender selector == #x:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -148,7 +151,8 @@ "/ 2 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). + self assert:(ex suspendedContext sender sender selector == #a:b:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -161,7 +165,8 @@ "/ 3 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). + self assert:(ex suspendedContext sender sender selector == #a:b:c:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -174,7 +179,7 @@ "/ 4 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -187,7 +192,7 @@ "/ 5 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -200,7 +205,7 @@ "/ 6 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -213,7 +218,7 @@ "/ 7 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -226,7 +231,7 @@ "/ 8 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -239,7 +244,7 @@ "/ 9 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -252,7 +257,7 @@ "/ 10 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -265,7 +270,7 @@ "/ 11 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -278,7 +283,7 @@ "/ 12 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -291,7 +296,7 @@ "/ 13 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -304,7 +309,7 @@ "/ 14 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -317,7 +322,7 @@ "/ 15 args... MessageNotUnderstood handle:[:ex | self assert:(ex suspendedContext selector == #doesNotUnderstand:). - self assert:(ex suspendedContext sender selector == #lookupMethodForMessage:to:from:). + self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:). "/ here, we return a method... ex proceedWith:(self class compiledMethodAt:#returnConstant98765). ] do:[ @@ -582,7 +587,7 @@ !BehaviorLookupObjectTests::LookupClass class methodsFor:'lookup'! -lookupMethodForMessage:msg to:receiver from:sendingContext +lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext ^ self compiledMethodAt:#returnConstant12345 ! ! @@ -594,7 +599,7 @@ !BehaviorLookupObjectTests::NilReturningLookupClass class methodsFor:'lookup'! -lookupMethodForMessage:msg to:receiver from:sendingContext +lookupMethodForSelector:aSelector directedTo:searchClass for:aReceiver withArguments:argArrayOrNil from:sendingContext ^ nil ! !