--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__LoggedStreamTests.st	Tue Mar 19 20:42:36 2013 +0100
@@ -0,0 +1,92 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#LoggedStreamTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression'
+!
+
+
+!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$'
+! !
+