RegressionTests__CollectionTests.st
changeset 664 c7fbcdea0afa
parent 663 437a6c228d34
child 666 ff89010dca6b
equal deleted inserted replaced
663:437a6c228d34 664:c7fbcdea0afa
   358     enumeratedValues := OrderedCollection new.
   358     enumeratedValues := OrderedCollection new.
   359     i2 do:[:each | enumeratedValues add:each ].
   359     i2 do:[:each | enumeratedValues add:each ].
   360     self assert:(enumeratedValues size == 10).
   360     self assert:(enumeratedValues size == 10).
   361     self assert:(enumeratedValues asArray = #(2 4 6 8 10 12 14 16 18 20)).
   361     self assert:(enumeratedValues asArray = #(2 4 6 8 10 12 14 16 18 20)).
   362 
   362 
       
   363     self assert: (i1 collect:[:el | el even]) = #(false true false true false true false true false true).
       
   364     self assert: (i2 collect:[:el | el even]) = #(true true true true true true true true true true).
       
   365 
   363     "
   366     "
   364      self basicNew testInterval01
   367      self basicNew testInterval01
   365     "
   368     "
   366 
   369 
   367     "Modified: / 03-05-2012 / 18:34:56 / cg"
   370     "Modified: / 03-05-2012 / 18:36:41 / cg"
   368 ! !
   371 ! !
   369 
   372 
   370 !CollectionTests methodsFor:'tests-orderedCollection'!
   373 !CollectionTests methodsFor:'tests-orderedCollection'!
   371 
   374 
   372 testMergeSortStability01
   375 testMergeSortStability01