--- a/RegressionTests__StreamTests.st	Wed Apr 27 09:37:25 2016 +0100
+++ b/RegressionTests__StreamTests.st	Fri May 13 21:23:11 2016 +0200
@@ -481,7 +481,7 @@
 !
 
 test30_readWriteBinary
-    |testVector s val|
+    |testVector f s val|
 
     #(
         0       #[ 0 0 ]
@@ -507,18 +507,19 @@
         s nextPutShort:val MSB:false.
         self assert:(s contents reversed = expected).
 
+        f := Filename newTemporary.
         [    
-            s := 'testData' asFilename writeStream.
+            s := f writeStream.
             s nextPutShort:val MSB:true.
             s close.
-            self assert:('testData' asFilename binaryContentsOfEntireFile = expected).
+            self assert:(f binaryContentsOfEntireFile = expected).
 
-            s := 'testData' asFilename writeStream.
+            s := f writeStream.
             s nextPutShort:val MSB:false.
             s close.
-            self assert:('testData' asFilename binaryContentsOfEntireFile reversed = expected).
+            self assert:(f binaryContentsOfEntireFile reversed = expected).
         ] ensure:[
-            'testData' asFilename delete
+            f delete
         ].    
     ].
     
@@ -552,21 +553,22 @@
             ].
 
             "/ ----
+            f := Filename newTemporary.
             [
-                s := 'testData' asFilename writeStream.
+                s := f writeStream.
                 testVector do:[:written |
                     s perform:writer with:written with:msb.
                 ].
 
                 s close.
-                s := 'testData' asFilename readStream.
+                s := f readStream.
 
                 testVector do:[:expected |
                     self assert:(val := s perform:reader with:msb) == expected.
                 ].
                 s close.
             ] ensure:[
-                'testData' asFilename delete
+                f delete
             ]
         ].
     ].
@@ -575,10 +577,12 @@
      self run:#test30_readWriteBinary
      self new test30_readWriteBinary
     "
+
+    "Modified: / 13-05-2016 / 21:21:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 test31_readWriteBinaryIntegers
-    |s|
+    |f s|
 
     #(
         0       1 #[ 0 ]
@@ -608,6 +612,7 @@
        16r87654321  6 #[ 16r00 16r00 16r87 16r65 16r43 16r21 ]
 
     ) inGroupsOf:3 do:[:val :nBytes :expected |    
+
         s := WriteStream on:(ByteArray new).
         s nextNumber:nBytes put:val MSB:true.
         self assert:(s contents = expected).
@@ -618,18 +623,19 @@
 
         "/ because external streams may have specially tuned output methods,
         "/ test them also
+        f := Filename newTemporary.
         [    
-            s := 'testData' asFilename writeStream.
+            s := f writeStream.
             s nextNumber:nBytes put:val MSB:true.
             s close.
-            self assert:('testData' asFilename binaryContentsOfEntireFile = expected).
+            self assert:(f binaryContentsOfEntireFile = expected).
 
-            s := 'testData' asFilename writeStream.
+            s := f writeStream.
             s nextNumber:nBytes put:val MSB:false.
             s close.
-            self assert:('testData' asFilename binaryContentsOfEntireFile reversed = expected).
+            self assert:(f binaryContentsOfEntireFile reversed = expected).
         ] ensure:[
-            'testData' asFilename delete
+            f delete
         ].    
     ].
     
@@ -638,6 +644,8 @@
      self run:#test31_readWriteBinaryIntegers
      self new test31_readWriteBinaryIntegers
     "
+
+    "Modified: / 13-05-2016 / 21:22:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !StreamTests class methodsFor:'documentation'!
@@ -648,5 +656,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !