--- a/RegressionTests__SegmentedOrderedCollectionTests.st Wed Mar 20 12:24:53 2013 +0100
+++ b/RegressionTests__SegmentedOrderedCollectionTests.st Wed Mar 20 12:27:38 2013 +0100
@@ -114,10 +114,20 @@
c grow:1000.
self assert:(c size == 1000).
+ self assert:(c at:1) == 15010.
+ self assert:(c at:2) == 19990.
3 to:1000 do:[:i |
self assert:(c at:i) == nil
].
+ c grow:105.
+ self assert:(c size == 105).
+ self assert:(c at:1) == 15010.
+ self assert:(c at:2) == 19990.
+ 3 to:105 do:[:i |
+ self assert:(c at:i) == nil
+ ].
+
"
self run:#test01
self new test01