--- 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
+ ]
].
].