"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#StreamTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!StreamTests class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        cg

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!StreamTests class methodsFor:'queries'!

coveredClassNames

    ^ #(

        'PositionableStream'

    )

    "Created: / 16-09-2011 / 14:56:05 / cg"

! !

!StreamTests methodsFor:'tests'!

test01_numberReading

    |b s val|

    b := #[1 2 3 4].

    s := b readStream.

    self assert:( val := s nextLittleEndianNumber:4 ) = 16r04030201.

    self assert:( s atEnd ).

    self assert:( val := #[16r81 16r82 16r83 16r84] readStream nextLittleEndianNumber:4 ) = 16r84838281.

    self assert:( val := #[16r81 16r82 16r83 16r84 16r85 16r86 16r87 16r88] readStream nextLittleEndianNumber:8 ) = 16r8887868584838281.

    "/ signed

    self assert:( val := #[16r01 16r02 16r03 16r04] readStream nextInt32 ) = 16r01020304.

    self assert:( val := #[16rFF 16rFF 16rFF 16rFF] readStream nextInt32 ) = -1.

    self assert:( val := #[16r80 16r00 16r00 16r00] readStream nextInt32 ) = -2147483648.

    s := WriteStream on:ByteArray new.

    s nextInt32Put:16r01020304.

    self assert:( val := s contents ) = #[16r01 16r02 16r03 16r04].

    s := WriteStream on:ByteArray new.

    s nextLittleEndianNumber:4 put:16r01020304.

    self assert:( val := s contents ) = #[16r04 16r03 16r02 16r01].

    s := WriteStream on:ByteArray new.

    s nextLittleEndianNumber:8 put:16r0102030405060708.

    self assert:( val := s contents ) = #[16r08 16r07 16r06 16r05 16r04 16r03 16r02 16r01].

    "

     self run:#test01_numberReading

     self new test01_numberReading

    "

    "Created: / 16-09-2011 / 14:33:24 / cg"

! !

!StreamTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !