The Trunk: Tests-nice.460.mcz

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 ) !