Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed:
authorClaus Gittinger <cg@exept.de>
Wed, 07 Apr 2010 18:45:35 +0200
changeset 561 0588a5f296fa
parent 560 cf65fb8e9c54
child 562 85de4d57f575
changed: #testLookupObject_01b #testLookupObject_02c
RegressionTests__BehaviorLookupObjectTests.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__BehaviorLookupObjectTests.st	Wed Apr 07 18:43:40 2010 +0200
+++ b/RegressionTests__BehaviorLookupObjectTests.st	Wed Apr 07 18:45:35 2010 +0200
@@ -67,6 +67,7 @@
             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).
 
             "/ here, we return a method...
             ex proceedWith:nil.
@@ -180,6 +181,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -193,6 +195,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -206,6 +209,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -219,6 +223,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -232,6 +237,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -245,6 +251,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -258,6 +265,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -271,6 +279,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -284,6 +293,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -297,6 +307,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -310,6 +321,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
@@ -323,6 +335,7 @@
     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:).
         "/ here, we return a method...
         ex proceedWith:(self class compiledMethodAt:#returnConstant98765).
     ] do:[
hg/stx-goodies-regression