Chris Muller uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-cmm.195.mcz==================== Summary ====================
Name: CollectionsTests-cmm.195
Author: cmm
Time: 28 January 2013, 8:20:02.188 pm
UUID: 0f5298fb-9001-4d27-844b-3181e86da7ab
Ancestors: CollectionsTests-ul.194
Tests for FloatCollection.
=============== Diff against CollectionsTests-ul.194 ===============
Item was added:
+ ClassTestCase subclass: #FloatCollectionTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'CollectionsTests-Sequenceable'!
Item was added:
+ ----- Method: FloatCollectionTest>>testAdd (in category 'tests') -----
+ testAdd
+ | fc |
+ fc := #(1 2 3 4 ) as: FloatCollection.
+ fc add: 88.
+ self assert: fc asArray = #(1.0 2.0 3.0 4.0 88.0 ) asFloatArray.
+ fc add: 99.
+ self assert: fc = (#(1 2 3 4 88 99 ) as: FloatCollection)!
Item was added:
+ ----- Method: FloatCollectionTest>>testInternalArray (in category 'tests') -----
+ testInternalArray
+ | fc internalArray |
+ fc := FloatCollection new.
+ self
+ deny: (internalArray := fc instVarNamed: 'array') class isPointers ;
+ assert: fc isEmpty.
+ internalArray size + 1 timesRepeat: [ fc add: 0.0 ].
+ self
+ assert: fc size = internalArray size + 1 ;
+ assert: (fc instVarNamed: 'array') size = (internalArray size * 2)!