Nicolas Cellier uploaded a new version of Tests to project The Treated Inbox: http://source.squeak.org/treated/Tests-jar.455.mcz ==================== Summary ==================== Name: Tests-jar.455 Author: jar Time: 30 April 2021, 12:34:05.935949 am UUID: 689cd0f4-1fe4-4e46-8e75-c94cd3753f91 Ancestors: Tests-jar.454 Supersedes The Inbox: Tests-jar.454 (reversed the previous change and added new tests instead; activated DoubleOuterTest with correct results) Complements The Inbox: Kernel-jar.1395.mcz ( A bug in Exception>>#outer causing a return to an incorrect handler context) =============== Diff against Tests-jar.454 =============== Item was added: + ----- Method: ExceptionTester>>doubleOuterTestResults (in category 'signaledException results') ----- + doubleOuterTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTester>>simpleOuterDefaultReturnTest (in category 'signaledException tests') ----- + simpleOuterDefaultReturnTest + "uses #resume" + + [[self doSomething. + MyTestNotification signal. + "self doSomethingElse" + self doSomethingExceptional] + on: MyTestNotification + do: [:ex | ex outer]. self doSomethingElse] + on: MyTestNotification + do: [:ex | self doYetAnotherThing. ex resume]! Item was added: + ----- Method: ExceptionTester>>simpleOuterDefaultReturnTestResults (in category 'signaledException results') ----- + simpleOuterDefaultReturnTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was added: + ----- Method: ExceptionTester>>simpleOuterReturnTest (in category 'signaledException tests') ----- + simpleOuterReturnTest + "uses #resume" + + [[self doSomething. + MyTestNotification signal. + "self doSomethingElse" + self doSomethingExceptional] + on: MyTestNotification + do: [:ex | ex outer. ex return]. self doSomethingElse] + on: MyTestNotification + do: [:ex | self doYetAnotherThing. ex resume]! Item was added: + ----- Method: ExceptionTester>>simpleOuterReturnTestResults (in category 'signaledException results') ----- + simpleOuterReturnTestResults + + ^OrderedCollection new + add: self doSomethingString; + add: self doYetAnotherThingString; + add: self doSomethingElseString; + yourself! Item was changed: ----- Method: ExceptionTester>>simpleOuterTest (in category 'signaledException tests') ----- simpleOuterTest "uses #resume" [[self doSomething. MyTestNotification signal. "self doSomethingElse" self doSomethingExceptional] on: MyTestNotification + do: [:ex | ex outer. self doSomethingElse]] - do: [:ex | ex outer]. self doSomethingElse] on: MyTestNotification do: [:ex | self doYetAnotherThing. ex resume]! Item was added: + ----- Method: ExceptionTests>>testDoubleOuterTest (in category 'tests - ExceptionTester') ----- + testDoubleOuterTest + self assertSuccess: (ExceptionTester new runTest: #doubleOuterTest ) ! Item was added: + ----- Method: ExceptionTests>>testSimpleOuterReturn (in category 'tests - ExceptionTester') ----- + testSimpleOuterReturn + self assertSuccess: (ExceptionTester new runTest: #simpleOuterReturnTest ) !