"

 COPYRIGHT (c) Claus Gittinger / eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

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

"{ NameSpace: RegressionTests }"

TestCase subclass:#StreamTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Streams'

!

!StreamTests class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) Claus Gittinger / eXept Software AG

 COPYRIGHT (c) 2016 Jan Vrany

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    documentation to be added.

    [author:]

        cg

    [instance variables:]

    [class variables:]

    [see also:]

"

! !

!StreamTests class methodsFor:'queries'!

coveredClassNames

    ^ #(

        'PositionableStream'

        'ReadStream'

        'WriteStream'

        'Stream'

    )

    "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'.        

        ].

    ].

    (Smalltalk classNamed:'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

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

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

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

    s := WriteStream on:ByteArray new.

    s nextPutLong:16r01020304 MSB:true.

    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"

!

test02_readStream

    {

        #($a $b $c $d $a $b $c $d $a $b $c $d $a $b $c $d) .

        #[97 98 99 100 97 98 99 100 97 98 99 100]          .

        'abcdabcdabcdabcd'                                 .

        'abcdabcdabcdabcd' asUnicode16String               .

        'abcdabcdabcdabcd' asUnicode32String               .

    } do:[:coll|

        |s e t|

        s := coll readStream.

        "/ initial state?

        self assert:(s atEnd not).

        self assert:(s position == 0).

        "/ peek returns the correct value

        e := s peek.

        self assert:(e asInteger == 97).

        "/ peek should not change any state

        self assert:(s atEnd not).

        self assert:(s position == 0).

        e := s next.

        self assert:(e asInteger == 97).

        self assert:(s position == 1).

        self assert:(s atEnd not).

        e := s peek.

        self assert:(s position == 1).

        self assert:(e asInteger == 98).

        s position:0.

        self assert:(s atEnd not).

        self assert:(s position == 0).

        e := s peek.

        self assert:(e asInteger == 97).

        s position:coll size.

        self assert:(s atEnd).

        self assert:(s position == coll size).

        s position:0.

        self assert:(s position == 0).

        e := s peek.

        self assert:(e asInteger == 97).

        t := s next:2.

        self assert:(t size == 2).

        self assert:(t at:1) asInteger == 97.

        self assert:(t at:2) asInteger == 98.

        self assert:(s position == 2).

        s position:1.

        self assert:(s position == 1).

        e := s peek.

        self assert:(e asInteger == 98).

        t := s upTo:(coll at:1).

        self assert:(t size == 3).

        self assert:(t at:1) == (coll at:2).

        self assert:(t at:2) == (coll at:3).

        self assert:(t at:3) == (coll at:4).

        self assert:(s position == 5).

        self assert:(s peek asInteger == (coll at:2) asInteger).

        s position:1.

        (coll at:1) isCharacter ifTrue:[

            s skipSeparators.

            self assert:(s position == 1).

        ].

        s position:(coll size - 1).

        t := s upToEnd.

        self assert:(s position == coll size).

        self assert:(t size == 1).

        self assert:(t at:1) == (coll at:coll size).

        s position:0.

        (coll at:1) isCharacter ifTrue:[

            t := s nextAlphaNumericWord.

            self assert:(t asArray = coll asArray).

            self assert:(s position == coll size).

        ].

    ].

    "

     self run:#test02_readStream

     self new test02_readStream

    "

!

test03_readStream

    {

        #($a $b $c $d $ $a $b $c $d $a $b $c $d $a $b $c $d) .

        #[97 98 99 100 20 97 98 99 100 97 98 99 100]          .

        'abcd abcdabcdabcd'                                 .

        'abcd abcdabcdabcd' asUnicode16String               .

        'abcd abcdabcdabcd' asUnicode32String               .

    } do:[:coll|

        |s e t|

        s := coll readStream.

        s position:3.

        (coll at:1) isCharacter ifTrue:[

            s skipSeparators.

            self assert:(s position == 3).

            s next.

            s skipSeparators.

            self assert:(s position == 5).

        ].

        s position:0.

        (coll at:1) isCharacter ifTrue:[

            t := s nextAlphaNumericWord.

            self assert:(t asArray = (coll asArray copyTo:4)).

            self assert:(s position == 4).

        ].

    ].

    "

     self run:#test02_readStream

     self new test02_readStream

    "

!

test04_readIntegers

    |s n|

         "0123456789012345678901"

    s := '1234 56789    123    ' readStream.

    self assert:((n := s nextDecimalInteger) == 1234).

    self assert:(s position == 4).

    s skipSeparators.

    self assert:(s position == 5).

    self assert:((n := s nextDecimalInteger) == 56789).

    self assert:(s position == 10).

    s skipSeparators.

    self assert:(s position == 14).

    self assert:((n := s nextDecimalInteger) == 123).

    self assert:(s position == 17).

    "/ is this the correct behavior?

    self assert:((n := s nextDecimalInteger) == 0).

    self assert:(s position == 17).

    "

     self run:#test04_readIntegers

     self new test04_readIntegers

    "

!

test05_readAlphanumericWords

    |s w|

         "0123456789012345678901"

    s := 'a234 b6789    c23    ' readStream.

    self assert:((w := s nextAlphaNumericWord) = 'a234').

    self assert:(s position == 4).

    self assert:((w := s nextAlphaNumericWord) = 'b6789').

    self assert:(s position == 10).

    self assert:((w := s nextAlphaNumericWord) = 'c23').

    self assert:(s position == 17).

    "/ is this the correct behavior?

    self assert:((w := s nextAlphaNumericWord) isNil).

    self assert:(s position == 21).

    "

     self run:#test05_readAlphanumericWords

     self new test05_readAlphanumericWords

    "

!

test06_writeStream

    |s|

         "0123456789012345678901"

    s := WriteStream on:(String new).

    self assert:(s position == 0).

    self assert:(s readLimit == 0).

    s nextPut:$a.

    self assert:(s position == 1).

    self assert:(s contents = 'a').

    self assert:(s readLimit == 1).

    s nextPut:$b.

    self assert:(s position == 2).

    self assert:(s contents = 'ab').

    self assert:(s readLimit == 2).

    s nextPut:$c.

    self assert:(s position == 3).

    "/ self assert:(s contents = 'abc').

    self assert:(s readLimit == 3).

    "/ fill to right before it has to resize

    s position to:(s collection size) do:[:i | s nextPut:$0+(i\\10)].

    self assert:(s contents = ('abc345678901234567890' copyTo:s size)).

    "

     self run:#test06_writeStream

     self new test06_writeStream

    "

!

test07_writeStream

    |s|

         "0123456789012345678901"

    s := '' writeStream.

    s nextPut:$a.

    self assert:(s last) == $a.       

    self assert:(s last:1) = 'a'.       

    s nextPut:$b.

    self assert:(s last) == $b.       

    self assert:(s last:1) = 'b'.       

    self assert:(s last:2) = 'ab'.       

    s nextPut:$c.

    self assert:(s last) == $c.       

    self assert:(s last:1) = 'c'.       

    self assert:(s last:2) = 'bc'.       

    self assert:(s last:3) = 'abc'.       

    s nextPutAll:'123'.

    self assert:(s last) == $3.       

    self assert:(s last:1) = '3'.       

    self assert:(s last:2) = '23'.       

    self assert:(s last:3) = '123'.       

    s next:1 put:$4.

    self assert:(s last) == $4.       

    self assert:(s last:1) = '4'.       

    self assert:(s last:2) = '34'.       

    self assert:(s last:3) = '234'.       

    self assert:(s size == 7).       

    s next:3 put:$5.

    self assert:(s last) == $5.       

    self assert:(s last:1) = '5'.       

    self assert:(s last:2) = '55'.       

    self assert:(s last:3) = '555'.       

    self assert:(s last:4) = '4555'.       

    self assert:(s size == 10).       

    "

     self run:#test07_writeStream

     self new test07_writeStream

    "

!

test08_writeStream

    |s|

    s := '' writeStream.

    s nextPutAll:'hello '.

    s nextPutAll:'1234world012345' startingAt:5 to:9.

    self assert:( s contents = 'hello world' ). 

    s := '' writeStream.

    s nextPutAll:'hello'.

    s space.

    s nextPutAll:'world'.

    self assert:( s contents = 'hello world' ). 

    "

     self run:#test08_writeStream

     self new test08_writeStream

    "

!

test09_writeStreamErrors

    |s|

    s := '' writeStream.

    self should:[ s nextPutAll:nil ] raise:Error.

    self assert:( s contents = '' ). 

    "

     self run:#test09_writeStreamErrors

     self new test09_writeStreamErrors

    "

!

test20_readWriteStream

    |s ch string|

         "0123456789012345678901"

    s := ReadWriteStream on:(String new).

    self assert:(s position == 0).

    self assert:(s readLimit == 0).

    s nextPutAll:'hello'.

    self assert:(s position == 5).

    self assert:(s contents = 'hello').

    self assert:(s readLimit == 5).

    s nextPut:Character space.

    self assert:(s position == 6).

    self assert:(s contents = 'hello ').

    self assert:(s readLimit == 6).

    s nextPutAll:'world'.

    self assert:(s position == 11).

    self assert:(s contents = 'hello world').

    self assert:(s readLimit == 11).

    s reset.

    self assert:(s position == 0).

    self assert:(s readLimit == 11).

    ch := s next.

    self assert:(ch == $h).

    string := s next:4.

    self assert:(string = 'ello').

    s reset.

    self assert:(s position == 0).

    self assert:(s readLimit == 11).

    string := s upToEnd.

    self assert:(string = 'hello world').

    "

     self run:#test20_readWriteStream

     self new test20_readWriteStream

    "

!

test21_readWriteStreamWithPosition

    |s|

         "0123456789012345678901"

    s := ReadWriteStream on:(String new).

    self assert:(s position == 0).

    self assert:(s readLimit == 0).

    s nextPutAll:'hello'.

    self assert:(s position == 5).

    self assert:(s readLimit == 5).

    s nextPutAll:' world'.

    self assert:(s position == 11).

    self assert:(s readLimit == 11).

    s position:(s position - 5).

    self assert:(s upToEnd = 'world').

    self assert:(s position = 11).

    self assert:(s readLimit = 11).

    "

     self run:#test21_readWriteStreamWithPosition

     self new test21_readWriteStreamWithPosition

    "

!

test22_readWriteStreamWithRewrite

    |s|

         "0123456789012345678901"

    s := ReadWriteStream on:(String new).

    self assert:(s position == 0).

    self assert:(s readLimit == 0).

    s nextPutAll:'hello world'.

    self assert:(s position == 11).

    self assert:(s readLimit == 11).

    s position:(s position - 5).

    self assert:(s position = 6).

    s nextPutAll:'W'.