Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.460.mcz
==================== Summary ====================
Name: Tests-nice.460 Author: nice Time: 30 April 2021, 9:36:50.260749 pm UUID: 2996ccbb-9955-4399-ace4-4a61c14fc0d0 Ancestors: Tests-nice.459
Integrate test from Jaromir showing the expected behavior of outer. Thanks Jaromir.
See https://source.squeak.org/treated/Tests-jar.454.diff https://source.squeak.org/treated/Tests-jar.455.diff https://source.squeak.org/treated/Tests-jar.456.diff
=============== Diff against Tests-nice.459 ===============
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 added: + ----- Method: ExceptionTests>>testDoubleOuterDoubleResumeTest (in category 'tests - ExceptionTester') ----- + testDoubleOuterDoubleResumeTest + + | path | + path := ''. + [path := path, '1'. + [path := path, '2'. + [1/0] on: ZeroDivide do: [:ex | ex outer. path := path, '5'. ex return]. + path := path, '6' + ] on: ZeroDivide do: [:ex | ex outer. path := path, '4'. ex resume]. + path := path, '7' + ] on: ZeroDivide do: [:ex | path := path, '3'. ex resume]. + self assert: path = '1234567'!
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 ) !