[squeak-dev] The Trunk: KernelTests-ar.95.mcz

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

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

Name: KernelTests-ar.95
Author: ar
Time: 21 September 2009, 10:17:45 am
UUID: 80a7b914-beda-c44b-8e13-7734e7c3fe2e
Ancestors: KernelTests-nice.94

Add tests for ensuring that delays raise errors when they are scheduled multiple times.

=============== Diff against KernelTests-nice.94 ===============

Item was added:
+ ----- Method: DelayTest>>testMultiSchedule (in category 'testing-limits') -----
+ testMultiSchedule
+ "Ensure that scheduling the same delay twice raises an error"
+ | delay |
+ delay := Delay forSeconds: 1.
+ delay schedule.
+ self should:[delay schedule] raise: Error.
+ !

Item was added:
+ ----- Method: DelayTest>>testMultiProcessWaitOnSameDelay (in category 'testing-limits') -----
+ testMultiProcessWaitOnSameDelay
+ "Ensure that waiting on the same delay from multiple processes raises an error"
+ | delay p1 p2 wasRun |
+ delay := Delay forSeconds: 1.
+ wasRun := false.
+ p1 := [delay wait] forkAt: Processor activePriority+1.
+ p2 := [
+ self should:[delay wait] raise: Error.
+ wasRun := true.
+ ] forkAt: Processor activePriority+1.
+ p1 terminate.
+ p2 terminate.
+ self assert: wasRun.
+
+ !