The Trunk: KernelTests-dtl.250.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: KernelTests-dtl.250.mcz

commits-2
David T. Lewis uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-dtl.250.mcz

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

Name: KernelTests-dtl.250
Author: dtl
Time: 4 May 2013, 9:44:23.198 am
UUID: 5bbd5f95-c99c-4ea9-a011-9975e197040b
Ancestors: KernelTests-fbs.249

Remove AllocationTest>>isSafeVM and related protection for older Unix VMs (prior to 2010) that would crash when running tests. Reference Mantis http://bugs.squeak.org/view.php?id=7405 and VMMaker fixes in VMMaker-dtl.143.

=============== Diff against KernelTests-fbs.249 ===============

Item was removed:
- ----- Method: AllocationTest>>expectedFailures (in category 'tests') -----
- expectedFailures
- "should be fixed with latest VMs but unix is still pending"
- self isSafeVM
- ifTrue: [ ^#() ]
- ifFalse: [ ^#(testOneGigAllocation testOutOfMemorySignal) ]!

Item was removed:
- ----- 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>>testOutOfMemorySignal (in category 'tests') -----
  testOutOfMemorySignal
  "Ensure that OOM is signaled eventually"
  | sz |
- self isSafeVM ifFalse: [ "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.
  !