David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.147.mcz==================== Summary ====================
Name: KernelTests-dtl.147
Author: dtl
Time: 7 April 2010, 10:03:52.182 am
UUID: 784b0122-b6f5-45ef-9871-c0e1e114eeb2
Ancestors: KernelTests-jcg.146
Add VM version test to allow AllocationTest to run on updated Unix VM (pending). Flagged #toRemove, should be updated after new VMs are in general use.
=============== Diff against KernelTests-jcg.146 ===============
Item was added:
+ ----- Method: AllocationTest>>isSafeVM (in category 'workarounds') -----
+ isSafeVM
+ "False if the VM is a Unix VM that has not been updated to version 4.
+ Earlier versions may be subject to a bug that can crash the VM when
+ running AllocationTest."
+
+ self flag: #toRemove. "April 2010 dtl - remove this about one year from now"
+ ^ Smalltalk platformName ~= 'unix'
+ or: [(((Smalltalk getSystemAttribute: 0)
+ findTokens: FileDirectory slash)
+ select: [:e | e beginsWith: '4.']) isEmpty not]!
Item was changed:
----- Method: AllocationTest>>expectedFailures (in category 'tests') -----
expectedFailures
"should be fixed with latest VMs but unix is still pending"
+ self isSafeVM
+ ifTrue: [ ^#() ]
+ ifFalse: [ ^#(testOneGigAllocation testOutOfMemorySignal) ]!
- SmalltalkImage current platformName = 'unix'
- ifTrue: [ ^#(testOneGigAllocation testOutOfMemorySignal) ]
- ifFalse: [ ^#() ]!
Item was changed:
----- Method: AllocationTest>>testOutOfMemorySignal (in category 'tests') -----
testOutOfMemorySignal
"Ensure that OOM is signaled eventually"
| sz |
+ self isSafeVM ifFalse: [ "avoid crashing"
- SmalltalkImage current platformName = 'unix' ifTrue: [ "avoid crashing"
^self assert: false ].
sz := 512*1024*1024. "work around the 1GB alloc bug"
self should:[(1 to: 2000) collect:[:i| Array new: sz]] raise: OutOfMemory.
"Call me when this test fails, I want your machine"
sz := 1024*1024*1024*1024.
self should:[Array new: sz] raise: OutOfMemory.
!
Locked
