Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk:
http://source.squeak.org/trunk/GraphicsTests-nice.17.mcz==================== Summary ====================
Name: GraphicsTests-nice.17
Author: nice
Time: 1 November 2009, 9:33:12 am
UUID: d074c0bb-37c5-4a21-88f8-2a9793b66d73
Ancestors: GraphicsTests-nice.16
A test for Rectangle storeOn:
=============== Diff against GraphicsTests-nice.16 ===============
Item was added:
+ ----- Method: RectangleTest>>testStoreOn (in category 'tests') -----
+ testStoreOn
+
+ | assoc assoc2 |
+ assoc := (0@0 extent: 1@1) -> 0.
+ self shouldnt: [assoc2 := Compiler evaluate: assoc storeString] raise: Error.
+ self assert: assoc key = assoc2 key.
+ self assert: assoc value = assoc2 value.!