The Trunk: Exceptions-ar.30.mcz

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'.!