[Pkg] The Trunk: Exceptions-ar.30.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Sep 2 05:50:58 UTC 2010


Andreas Raab uploaded a new version of Exceptions to project The Trunk:
http://source.squeak.org/trunk/Exceptions-ar.30.mcz

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

Name: Exceptions-ar.30
Author: ar
Time: 1 September 2010, 10:50:45.682 pm
UUID: 8c031768-f467-2c4e-8ea1-5fcb95a0a8fd
Ancestors: Exceptions-sn.29

Reclassify methods to fix various package dependencies.

=============== Diff against Exceptions-sn.29 ===============

Item was removed:
- TestCase subclass: #ExceptionsTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Exceptions-Extensions'!

Item was removed:
- ----- Method: ExceptionsTest>>testHandlerReentrancy (in category 'as yet unclassified') -----
- testHandlerReentrancy
- 
- 	| callingOrder |
- 	"Handlers are not re-entrant by default, so inner is not activated twice"
- 	callingOrder := String streamContents: [:stream |
- 		[[stream nextPut: $s. Notification signal]
- 		
- 			"Inner handler"
- 			on: Notification do: [:ex |
- 				stream nextPut: $i.
- 				ex pass]]
- 		
- 			"outer handler"
- 			on: Notification do: [:ex |
- 				stream nextPut: $o.
- 				Notification signal]].
- 		
- 	self assert: callingOrder = 'sio'.
- 
- 	"Now make inner re-entrant"
- 	callingOrder := String streamContents: [:stream |
- 		[[stream nextPut: $s. Notification signal]
- 		
- 			"Inner handler"
- 			on: Notification do: [:ex |
- 				stream nextPut: $i.
- 				ex rearmHandlerDuring: [ex pass]]]
- 		
- 			"outer handler"
- 			on: Notification do: [:ex |
- 				stream nextPut: $o.
- 				Notification signal]].
- 		
- 	self assert: callingOrder = 'sioi'.!



More information about the Packages mailing list