"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#TypedArrayTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections'

!

!TypedArrayTests class methodsFor:'queries'!

coveredClassNames

    ^ #( FloatArray )

! !

!TypedArrayTests methodsFor:'tests'!

test01_createArrays

    |a|

    a := FloatArray new:3.

    self assert:(a size == 3).

    a at:1 put:1.

    a at:2 put:2.

    a at:3 put:3.

    self assert:(a at:1) = 1.0.

    self assert:(a at:2) = 2.0.

    self assert:(a at:3) = 3.0.

!

test02_copyArrays

    |src copy|

    src at:1 put:1.

    src at:2 put:2.

    src at:3 put:3.

    self assert:(src at:1) = 1.0.

    self assert:(src at:2) = 2.0.

    self assert:(src at:3) = 3.0.

    copy := src copyFrom:1 to:3.

    self assert:(copy size == 3).

    self assert:(copy at:1) = 1.0.

    self assert:(copy at:2) = 2.0.

    self assert:(copy at:3) = 3.0.

! !

!TypedArrayTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !