"{ 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_squeak
|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 / 15:26:10 / cg"
! !
!StreamTests class methodsFor:'documentation'!
version
^ '$Header$'
!
version_CVS
^ '$Header$'
! !