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