The Inbox: Tests-jar.455.mcz

A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/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 ) !