[squeak-dev] The Trunk: Tests-fbs.301.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 14 21:46:56 UTC 2014


Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.301.mcz

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

Name: Tests-fbs.301
Author: fbs
Time: 14 July 2014, 10:46:36.798 pm
UUID: 33e9ec43-da40-8c4a-ba89-738e359a3043
Ancestors: Tests-fbs.300

Better error messages for CI. Note that on Spur+Windows, this test passes, but fails in CI, which is Spur+Linux.

=============== Diff against Tests-fbs.300 ===============

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 should: [ (self classOf:  aPoint) = Point ].
- 	self should: [ (self instVarOf: aPoint at: 1) = 5 ].
  	self instVarOf: aPoint at: 2 put: 10.
+ 	self assert: 10 equals: (self instVarOf: aPoint at: 2).
- 	self should: [ (self instVarOf: aPoint at: 2) = 10 ].
  
  	self someObject.
  	self nextObjectAfter: aPoint.
  
+ 	self assert: Point equals: (self someInstanceOf: Point) class.
+ 	self assert: Point equals: (self nextInstanceAfter: aPoint) class.
- 	self should: [ (self someInstanceOf: Point) class = Point ].
- 	self should: [ (self nextInstanceAfter: aPoint) class = Point ].
  
  
  	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.!
- 	self should: [ array1 = #(1 4 5) ].
- 
- !



More information about the Squeak-dev mailing list