hg/stx-goodies-regression: changeset 1930:68ae0c911d46

--- a/RegressionTests__BehaviorLookupObjectTests.st	Fri May 11 15:37:31 2018 +0200
+++ b/RegressionTests__BehaviorLookupObjectTests.st	Fri May 11 16:26:58 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -66,14 +68,14 @@
         firstException ifTrue:[
             firstException := false.    
             self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-            self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-            self assert:(ex suspendedContext sender sender selector == #x).
+            self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+            self assert:(ex suspendedContext sender sender sender selector == #x).
 
-            "/ here, we return a method...
+            "/ here, we return a method...                              
             ex proceedWith:nil.
         ].
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #x).
+        self assert:(ex suspendedContext sender sender sender sender selector == #x).
         ex proceedWith:12345.
     ] do:[
         ClassWithSpecialLookup setLookupObject:BadLookupClass.
@@ -82,6 +84,8 @@
     ].
 
     self assert:(rslt = 12345).
+
+    "Modified: / 11-05-2018 / 16:11:41 / stefan"
 !
 
 testLookupObject_01c
@@ -90,8 +94,8 @@
     "/ catch it, and proceed with a method...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #x).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #x).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -101,6 +105,8 @@
     ].
 
     self assert:(rslt = 98765).
+
+    "Modified: / 11-05-2018 / 16:14:52 / stefan"
 !
 
 testLookupObject_02
@@ -138,8 +144,8 @@
     "/ 1 arg...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #x:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #x:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -152,8 +158,8 @@
     "/ 2 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -166,8 +172,8 @@
     "/ 3 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -180,8 +186,8 @@
     "/ 4 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -194,8 +200,8 @@
     "/ 5 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -208,8 +214,8 @@
     "/ 6 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -222,8 +228,8 @@
     "/ 7 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -236,8 +242,8 @@
     "/ 8 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -250,8 +256,8 @@
     "/ 9 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -264,8 +270,8 @@
     "/ 10 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -278,8 +284,8 @@
     "/ 11 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -292,8 +298,8 @@
     "/ 12 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -306,8 +312,8 @@
     "/ 13 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -320,8 +326,8 @@
     "/ 14 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -334,8 +340,8 @@
     "/ 15 args...
     MessageNotUnderstood handle:[:ex |
         self assert:(ex suspendedContext selector == #doesNotUnderstand:).
-        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:).
-        self assert:(ex suspendedContext sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:).
+        self assert:(ex suspendedContext sender selector == #lookupMethodForSelector:directedTo:for:withArguments:from:ilc:).
+        self assert:(ex suspendedContext sender sender sender selector == #a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -344,6 +350,8 @@
         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
     ].
     self assert:(rslt = 98765).
+
+    "Modified: / 11-05-2018 / 16:22:27 / stefan"
 !
 
 testLookupObject_02d
author	Stefan Vogel <sv@exept.de>
	Fri, 11 May 2018 16:26:58 +0200
changeset 1930	68ae0c911d46
parent 1929	ed3d2078410e
child 1931	bdc99c92a5a6