[squeak-dev] The Trunk: Tests-eem.363.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 25 18:51:57 UTC 2017


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



More information about the Squeak-dev mailing list