The Trunk: Tests-eem.363.mcz

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.!