The Trunk: CollectionsTests-nice.170.mcz

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.170.mcz

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

Name: CollectionsTests-nice.170
Author: nice
Time: 21 August 2010, 4:34:11.002 pm
UUID: e795a73d-3747-42fd-a760-e8ea2197cf13
Ancestors: CollectionsTests-nice.169

Ahem, transitive not associative.

=============== Diff against CollectionsTests-nice.169 ===============

Item was added:
+ ----- Method: HeapTest>>testIfEqualIsTransitive (in category 'testing') -----
+ testIfEqualIsTransitive
+ "This is http://bugs.squeak.org/view.php?id=6943"
+
+     | anArray heap1 heap2 |
+     anArray := #(1 2 3).
+     heap1 := Heap withAll: (1 to: 3) sortBlock: [:a :b | a < b].
+     heap2 := Heap withAll: (1 to: 3) sortBlock: [:a :b | b > a].
+     self
+ assert: (heap1 = anArray) & (heap2 = anArray) ==> (heap1 = heap2)
+ description: 'Heap equality should be transitive'!

Item was removed:
- ----- Method: HeapTest>>testIfEqualIsAssociative (in category 'testing') -----
- testIfEqualIsAssociative
- "This is http://bugs.squeak.org/view.php?id=6943"
-
-     | anArray heap1 heap2 |
-     anArray := #(1 2 3).
-     heap1 := Heap withAll: (1 to: 3) sortBlock: [:a :b | a < b].
-     heap2 := Heap withAll: (1 to: 3) sortBlock: [:a :b | b > a].
-     self
- assert: (heap1 = anArray) & (heap2 = anArray) ==> (heap1 = heap2)
- description: 'Heap equality should be transitive'!