Mercurial Mercurial > hg > stx-goodies-regression / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
RegressionTests__BehaviorLookupObjectTests.st
changeset 560 cf65fb8e9c54
parent 559 92ef051a8990
child 561 0588a5f296fa 
--- 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
 ! !
hg/stx-goodies-regression