--- a/RegressionTests__StreamTests.st	Wed Feb 24 16:03:43 2016 +0100
+++ b/RegressionTests__StreamTests.st	Wed Feb 24 16:17:58 2016 +0100
@@ -447,6 +447,20 @@
         s := WriteStream on:(ByteArray new).
         s nextPutShort:val MSB:false.
         self assert:(s contents reversed = expected).
+
+        [    
+            s := 'testData' asFilename writeStream.
+            s nextPutShort:val MSB:true.
+            s close.
+            self assert:('testData' asFilename binaryContentsOfEntireFile = expected).
+
+            s := 'testData' asFilename writeStream.
+            s nextPutShort:val MSB:false.
+            s close.
+            self assert:('testData' asFilename binaryContentsOfEntireFile reversed = expected).
+        ] ensure:[
+            'testData' asFilename delete
+        ].    
     ].
     
     #(
@@ -477,6 +491,24 @@
             testVector do:[:expected |
                 self assert:(val := s perform:reader with:msb) == expected.
             ].
+
+            "/ ----
+            [
+                s := 'testData' asFilename writeStream.
+                testVector do:[:written |
+                    s perform:writer with:written with:msb.
+                ].
+
+                s close.
+                s := 'testData' asFilename readStream.
+
+                testVector do:[:expected |
+                    self assert:(val := s perform:reader with:msb) == expected.
+                ].
+                s close.
+            ] ensure:[
+                'testData' asFilename delete
+            ]
         ].
     ].