The Trunk: Tests-ar.91.mcz

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