[Pkg] The Trunk: Tests-ar.91.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Sep 2 05:57:05 UTC 2010
Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.91.mcz
==================== Summary ====================
Name: Tests-ar.91
Author: ar
Time: 1 September 2010, 10:56:37.047 pm
UUID: 53dae328-bdb6-cd40-94c7-19bb71d28b0f
Ancestors: Tests-eem.90
Reclassify methods to fix various package dependencies.
Update package dependency tests.
=============== Diff against Tests-eem.90 ===============
Item was changed:
----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') -----
testToolBuilder
self testPackage: 'ToolBuilder-Kernel' dependsExactlyOn: #(
Collections
Files
Graphics
Kernel
SUnit
+ System
).!
Item was changed:
----- Method: PackageDependencyTest>>testBalloon (in category 'tests') -----
testBalloon
self testPackage: 'Balloon' dependsExactlyOn: #(
+ Kernel Collections Graphics System
- Kernel Collections Graphics Morphic System
).!
Item was changed:
----- Method: PackageDependencyTest>>testCollections (in category 'tests') -----
testCollections
self testPackage: 'Collections' dependsExactlyOn: #(
- Balloon
Compiler
Kernel
Compression
Exceptions
Files
Graphics
- Morphic
- MorphicExtras
Multilingual
- Network
System
'ToolBuilder-Kernel'
).!
Item was changed:
----- Method: PackageDependencyTest>>testEtoys (in category 'tests') -----
testEtoys
self testPackage: 'EToys' dependsExactlyOn: #(
Balloon
Collections
Compiler
Exceptions
Files
Graphics
Kernel
Morphic
MorphicExtras
Network
Protocols
System
'ToolBuilder-Kernel'
Tools
+ SUnit
).!
Item was changed:
----- Method: PackageDependencyTest>>testSound (in category 'tests') -----
testSound
self testPackage: 'Sound' dependsExactlyOn: #(
Collections
Balloon
- EToys
Files
Graphics
Kernel
Morphic
MorphicExtras
Network
System
'ToolBuilder-Kernel'
Tools
).!
Item was changed:
----- Method: PackageDependencyTest>>testShoutCore (in category 'tests') -----
testShoutCore
self testPackage: 'ShoutCore' dependsExactlyOn: #(
Collections
Graphics
Kernel
Monticello
System
+ Compiler
).!
Item was changed:
----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') -----
testSUnitGUI
self testPackage: 'SUnitGUI' dependsExactlyOn: #(
Collections
Graphics
Kernel
PackageInfo
SUnit
System
'ToolBuilder-Kernel'
Tools
- Morphic "WindowColorSpec"
).!
Item was added:
+ ----- Method: ExceptionTests>>testHandlerReentrancy (in category 'testing') -----
+ 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