"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#UninterpretedBytesTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Collections'
!


!UninterpretedBytesTest methodsFor:'tests'!

testFloatAccess
    |bytes|

    bytes := ByteArray new:4.
    bytes floatAt:1 put:1.234.
    self assert:(bytes = #[182 243 157 63]).

    bytes floatAt:1 put:2.345 asShortFloat.
    self assert:(bytes = #[123 20 22 64]).

    bytes floatAt:1 put:345.
    self assert:(bytes = #[0 128 172 67]).


    bytes := ByteArray new:8.
    bytes doubleAt:1 put:1.234.
    self assert:(bytes = #[88 57 180 200 118 190 243 63]).

    bytes doubleAt:1 put:2.345 asShortFloat.
    self assert:(bytes = #[0 0 0 96 143 194 2 64]).

    bytes doubleAt:1 put:345.
    self assert:(bytes = #[0 0 0 0 0 144 117 64]).

    "
     self run:#testFloatAccess
    "
! !

!UninterpretedBytesTest class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !