[squeak-dev] The Trunk: Tests-mt.486.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 6 14:24:31 UTC 2022


Marcel Taeumel uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mt.486.mcz

==================== Summary ====================

Name: Tests-mt.486
Author: mt
Time: 6 May 2022, 4:24:30.747704 pm
UUID: 90407cd6-4268-0b4e-b296-8da7fc3ae790
Ancestors: Tests-ct.485, Tests-jar.464

Complements Kernel-nice.1465 (and thus Kernel-jar.1446).

Test re-signallig an already existing exception.

=============== Diff against Tests-ct.485 ===============

Item was added:
+ ----- Method: ExceptionTester>>simpleOuterResumeReturnTest (in category 'signaledException tests') -----
+ simpleOuterResumeReturnTest
+ 
+ 	[[self doSomething.
+ 	MyTestNotification signal.
+ 	self doSomethingExceptional]
+ 		on: MyTestNotification
+ 		do: [:ex | ex outer. self doYetAnotherThing. ex return]. 
+ 	self doSomethingElse]
+ 		on: MyTestNotification
+ 		do: [:ex | ex resume]!

Item was added:
+ ----- Method: ExceptionTester>>simpleOuterResumeReturnTestResults (in category 'signaledException results') -----
+ simpleOuterResumeReturnTestResults
+ 
+ 	^OrderedCollection new
+ 		add: self doSomethingString;
+ 		add: self doYetAnotherThingString;
+ 		add: self doSomethingElseString;
+ 		yourself!

Item was changed:
  ----- Method: ExceptionTester>>simpleResignalDoubleResumeTest (in category 'signaledException tests') -----
  simpleResignalDoubleResumeTest
- 	"uses #resume"
  
  	[[self doSomething.
  	MyTestNotification signal.
+ 	self doSomethingElse]
- 	"self doSomethingElse"]
  		on: MyTestNotification
  		do: [:ex | ex signal. self doYetAnotherThing. ex resume]. 
  	self doSomethingElse]
  		on: MyTestNotification
  		do: [:ex | ex resume]!

Item was changed:
  ----- Method: ExceptionTester>>simpleResignalDoubleResumeTestResults (in category 'signaledException results') -----
  simpleResignalDoubleResumeTestResults
  
  	^OrderedCollection new
  		add: self doSomethingString;
  		add: self doYetAnotherThingString;
  		add: self doSomethingElseString;
+ 		add: self doSomethingElseString;
  		yourself!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalResumeReturnTest (in category 'signaledException tests') -----
+ simpleResignalResumeReturnTest
+ 
+ 	[[self doSomething.
+ 	MyTestNotification signal.
+ 	self doSomethingExceptional]
+ 		on: MyTestNotification
+ 		do: [:ex | ex outer. self doYetAnotherThing. ex return]. 
+ 	self doSomethingElse]
+ 		on: MyTestNotification
+ 		do: [:ex | ex resume]!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalResumeReturnTestResults (in category 'signaledException results') -----
+ simpleResignalResumeReturnTestResults
+ 
+ 	^OrderedCollection new
+ 		add: self doSomethingString;
+ 		add: self doYetAnotherThingString;
+ 		add: self doSomethingElseString;
+ 		yourself!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalVsOuter1Test (in category 'signaledException tests') -----
+ simpleResignalVsOuter1Test
+ 
+ 	[self doSomething.
+ 	MyTestNotification signal.
+ 	self doSomethingExceptional]
+ 		on: MyTestNotification
+ 		do: [:ex1 | 
+ 			[ex1 signal. self doSomethingExceptional] "re-signal started searching for its handler here"
+ 				on: MyTestNotification "re-signal found and used this handler"
+ 				do: [:ex2 | self doYetAnotherThing].
+ 			self doSomethingElse]!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalVsOuter1TestResults (in category 'signaledException results') -----
+ simpleResignalVsOuter1TestResults
+ 
+ 	^OrderedCollection new
+ 		add: self doSomethingString;
+ 		add: self doYetAnotherThingString;
+ 		add: self doSomethingElseString;
+ 		yourself!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalVsOuter2Test (in category 'signaledException tests') -----
+ simpleResignalVsOuter2Test
+ 
+ 	[self doSomething.
+ 	MyTestNotification signal.
+ 	self doSomethingExceptional]
+ 		on: MyTestNotification
+ 		do: [:ex1 | 
+ 			[ex1 outer. self doYetAnotherThing] "#outer reached its default handler and resumed"
+ 				on: MyTestNotification "this handler is out of #outer's search scope"
+ 				do: [:ex2 | self doSomethingExceptional].
+ 			self doSomethingElse]!

Item was added:
+ ----- Method: ExceptionTester>>simpleResignalVsOuter2TestResults (in category 'signaledException results') -----
+ simpleResignalVsOuter2TestResults
+ 
+ 	^OrderedCollection new
+ 		add: self doSomethingString;
+ 		add: self doYetAnotherThingString;
+ 		add: self doSomethingElseString;
+ 		yourself!

Item was added:
+ ----- Method: ExceptionTests>>testSimpleOuterResumeReturn (in category 'tests - ExceptionTester') -----
+ testSimpleOuterResumeReturn
+ 	self assertSuccess: (ExceptionTester new runTest: #simpleOuterResumeReturnTest ) !

Item was added:
+ ----- Method: ExceptionTests>>testSimpleResignalResumeReturn (in category 'tests - ExceptionTester') -----
+ testSimpleResignalResumeReturn
+ 	self assertSuccess: (ExceptionTester new runTest: #simpleResignalResumeReturnTest ) !

Item was added:
+ ----- Method: ExceptionTests>>testSimpleResignalVsOuter1 (in category 'tests - ExceptionTester') -----
+ testSimpleResignalVsOuter1
+ 	self assertSuccess: (ExceptionTester new runTest: #simpleResignalVsOuter1Test) !

Item was added:
+ ----- Method: ExceptionTests>>testSimpleResignalVsOuter2 (in category 'tests - ExceptionTester') -----
+ testSimpleResignalVsOuter2
+ 	self assertSuccess: (ExceptionTester new runTest: #simpleResignalVsOuter2Test) !



More information about the Squeak-dev mailing list