"{ Package: 'stx:goodies/xtreams/terminals/tests' }"

"{ NameSpace: Xtreams }"

TestCase subclass:#BufferedWriteStreamTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Xtreams-Terminals-Tests'

!

!BufferedWriteStreamTest methodsFor:'tests'!

testBuffered

	| writing |

	writing := ByteArray new writing buffering: 10.

	writing write: #[ 1 2 3 4 5 ].

	self deny: (writing terminal first: 5) = #[ 1 2 3 4 5 ].

	writing write: #[ 6 7 8 9 ].

	self deny: (writing terminal first: 9) = #[ 1 2 3 4 5 6 7 8 9 ].

	writing put: 0.

	self deny: (writing terminal first: 10) = #[ 1 2 3 4 5 6 7 8 9 0 ].

	writing write: #[ 11 12 ].

	self assert: (writing terminal first: 10) = #[ 1 2 3 4 5 6 7 8 9 0 ].

	self deny: (writing terminal first: 12) = #[ 1 2 3 4 5 6 7 8 9 0 11 12 ].

	writing flush.

	self assert: (writing terminal first: 12) = #[ 1 2 3 4 5 6 7 8 9 0 11 12 ].

	writing write: #[ 13 14 ].

	self deny: (writing terminal first: 14) = #[ 1 2 3 4 5 6 7 8 9 0 11 12 13 14 ].

	writing close.

	self assert: (writing terminal first: 14) = #[ 1 2 3 4 5 6 7 8 9 0 11 12 13 14 ].

! !

!BufferedWriteStreamTest class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

!

version_SVN

    ^ '$Id$'

! !