WriteStreamTest.st
changeset 131 0977c63d056b
child 137 917d1e897a98
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/WriteStreamTest.st	Thu Dec 13 20:01:57 2001 +0100
@@ -0,0 +1,36 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+ReadStreamTest subclass:#WriteStreamTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Tests-Regression'
+!
+
+
+!WriteStreamTest methodsFor:'setup'!
+
+setUp
+    self streamClass:WriteStream
+! !
+
+!WriteStreamTest methodsFor:'tests'!
+
+testBasic
+    |stream|
+
+    stream := self streamClass on:''.
+    self assert:(stream isWritable).
+    self assert:(stream isPositionable).
+    self assert:(stream isReadable not).
+    self assert:(stream size == 0).
+    self assert:(stream isEmpty)
+! !
+
+!WriteStreamTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !