"{ 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:'setup'!

setUp

    (Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[

        (Smalltalk loadPackage:'stx:libcompat') ifFalse:[

            self error:'libcompat cannot be loaded'.        

        ].

    ].

    stx_libcompat load.

! !

!StreamTests methodsFor:'tests'!

test01_numberReading_squeak

    |b s val|

    b := #[1 2 3 4].

    s := b readStream.

    val := s nextLittleEndianNumber:4.

    self assert:val = 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

    s := WriteStream on:ByteArray new.

    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 / 15:26:10 / cg"

! !

!StreamTests class methodsFor:'documentation'!

version

    ^ '$Header$'

!

version_CVS

    ^ '$Header$'

! !