Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.363.mcz
==================== Summary ====================
Name: Tests-eem.363 Author: eem Time: 25 February 2017, 10:51:47.714322 am UUID: 2a27fe98-6ae1-4c91-a943-dbdfb1ae4078 Ancestors: Tests-jr.362
Fix the testForgivingPrims test for Spur which doesn't respect object ordering.
=============== Diff against Tests-jr.362 ===============
Item was changed: ----- Method: IslandVMTweaksTestCase>>testForgivingPrims (in category 'testing') ----- testForgivingPrims | aPoint anotherPoint array1 array2 | aPoint := Point x: 5 y: 6. anotherPoint := Point x: 7 y: 8. "make sure there are multiple points floating around" anotherPoint. "stop the compiler complaining about no uses"
self assert: Point equals: (self classOf: aPoint). self assert: 5 equals: (self instVarOf: aPoint at: 1). self instVarOf: aPoint at: 2 put: 10. self assert: 10 equals: (self instVarOf: aPoint at: 2).
+ Smalltalk isRunningSpur "Spur does not maintain object ordering..." + ifTrue: [self assert: Point equals: (self someInstanceOf: Point) class] + ifFalse: + [self someObject. + self nextObjectAfter: aPoint. - self someObject. - self nextObjectAfter: aPoint.
+ self assert: Point equals: (self someInstanceOf: Point) class. + self assert: Point equals: (self nextInstanceAfter: aPoint) class]. - self assert: Point equals: (self someInstanceOf: Point) class. - self assert: Point equals: (self nextInstanceAfter: aPoint) class.
array1 := Array with: 1 with: 2 with: 3. array2 := Array with: 4 with: 5 with: 6.
self replaceIn: array1 from: 2 to: 3 with: array2 startingAt: 1. self assert: #(1 4 5) equals: array1.!
packages@lists.squeakfoundation.org