The Trunk: KernelTests-cmm.169.mcz

Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.169.mcz

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

Name: KernelTests-cmm.169
Author: cmm
Time: 4 January 2011, 2:54:20.261 pm
UUID: 63f1b572-d2e1-4ee7-a764-70b0cc9f760b
Ancestors: KernelTests-ul.168

Unmerged KernelTests-ar.171.

=============== Diff against KernelTests-ul.168 ===============

Item was added:
+ ----- Method: Process>>suspendPrimitivelyOrFail (in category '*KernelTests-Processes') -----
+ suspendPrimitivelyOrFail
+ "Test support. Execute primitive 88, or fail."
+
+ <primitive: 88>
+ ^self primitiveFailed!

Item was added:
+ ClassTestCase subclass: #ProcessTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'KernelTests-Processes'!

Item was added:
+ ----- Method: ProcessTest>>testAtomicSuspend (in category 'tests') -----
+ testAtomicSuspend
+ "Test atomic suspend of foreign processes"
+
+ | list p sema |
+ sema := Semaphore new.
+ p := [sema wait] fork.
+ Processor yield.
+ self shouldnt: [list := p suspendPrimitivelyOrFail] raise: Error.
+ self assert: list == sema.
+ !