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

"{ NameSpace: RegressionTests }"

TestCase subclass:#LoggedStreamTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Streams'
!


!LoggedStreamTests methodsFor:'tests'!

test01_readng
    |logger stream loggingStream|

    logger := WriteStream on:(String new:10).

    stream := ReadStream on:'hello world'.
    loggingStream := LoggingStream on:stream logger:logger.

    self assert:(loggingStream next:5) = 'hello'.

    self assert:(logger contents = '<<< ''hello''
').

    self assert:(loggingStream next == Character space).

    self assert:(logger contents = '<<< ''hello''
<<< (Character space)
').

    self assert:(loggingStream next:5) = 'world'.
    self assert:(logger contents = '<<< ''hello''
<<< (Character space)
<<< ''world''
').

    stream on:#[10 20 30].
    stream binary.

    logger reset.
    self assert:(loggingStream upToEnd = #[10 20 30]).

    self assert:(logger contents = '<<< #[10 20 30]
').
!

test01_writing
    |logger stream loggingStream|

    logger := WriteStream on:(String new:10).

    stream := WriteStream on:(String new:10).
    loggingStream := LoggingStream on:stream logger:logger.

    loggingStream nextPutAll:'hello'.

    self assert:(stream contents = 'hello').
    self assert:(logger contents = '>>> ''hello''
').

    loggingStream nextPut:$x.

    self assert:(stream contents = 'hellox').
    self assert:(logger contents = '>>> ''hello''
>>> $x
').

    stream reset; setCollection:(ByteArray new:10).
    stream binary.

    logger reset.
    loggingStream binary.
    loggingStream nextPutAll:#[1 2 3].

    self assert:(stream contents = #[1 2 3] ).
    self assert:(logger contents = '>>> #[1 2 3]
').
! !

!LoggedStreamTests class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !