RegressionTests__ExternalStreamTest.st
changeset 274 14bd9bd8c7f2
parent 221 c9c3966ce0b0
child 1405 e9ca346e3642
child 1496 fa09c72ff3cf
--- a/RegressionTests__ExternalStreamTest.st	Thu Apr 28 11:11:21 2005 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Thu Apr 28 11:12:47 2005 +0200
@@ -1,6 +1,6 @@
 "{ Package: 'exept:regression' }"
 
-"{ NameSpace: Rel5 }"
+"{ NameSpace: RegressionTests }"
 
 TestCase subclass:#ExternalStreamTest
 	instanceVariableNames:''
@@ -18,7 +18,7 @@
     (fileName asFilename exists) ifTrue:[
 	fileName asFilename delete
     ].
-    fileName asFilename writeStream 
+    fileName asFilename writeStream
 	nextPutAll:'1234567890';
 	close.
     self assert:(fileName asFilename exists).
@@ -112,7 +112,7 @@
     s := ExternalReadStream on:h.
 
     '1234567890' do:[:eachExpected |
-        self assert:( s next == eachExpected ).
+	self assert:( s next == eachExpected ).
     ].
 
     s close.
@@ -136,10 +136,10 @@
     s binary.
 
     '1234567890' do:[:eachExpected |
-        |eachRead|
+	|eachRead|
 
-        eachRead := s next.
-        self assert:( eachRead == eachExpected asciiValue ).
+	eachRead := s next.
+	self assert:( eachRead == eachExpected asciiValue ).
     ].
 
     s close.
@@ -201,16 +201,16 @@
     |h s t|
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     h := OperatingSystem createFileForReadWrite:'xxx1'.
     s := ExternalWriteStream on:h.
 
     t := Time millisecondsToRun:[
-        1000000 timesRepeat:[
-            s nextPut:$a.
-        ].
+	1000000 timesRepeat:[
+	    s nextPut:$a.
+	].
     ].
     s close.
     Transcript showCR:'Time to write: ' , t printString.
@@ -222,15 +222,15 @@
     s := ExternalReadStream on:h.
 
     t := Time millisecondsToRun:[
-        1000000 timesRepeat:[
-            self assert:(s next == $a).
-        ].
+	1000000 timesRepeat:[
+	    self assert:(s next == $a).
+	].
     ].
     s close.
     Transcript showCR:'Time to read: ' , t printString.
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     "
@@ -242,16 +242,16 @@
     |h s t|
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     h := OperatingSystem createFileForReadWrite:'xxx1'.
     s := ExternalWriteStream on:h.
 
     t := Time millisecondsToRun:[
-        100000 timesRepeat:[
-            s nextPutAll:'0123456789'.
-        ].
+	100000 timesRepeat:[
+	    s nextPutAll:'0123456789'.
+	].
     ].
     s close.
     Transcript showCR:'Time to write: ' , t printString.
@@ -263,15 +263,15 @@
     s := ExternalReadStream on:h.
 
     t := Time millisecondsToRun:[
-        100000 timesRepeat:[
-            self assert:((s next:10) = '0123456789').
-        ].
+	100000 timesRepeat:[
+	    self assert:((s next:10) = '0123456789').
+	].
     ].
     s close.
     Transcript showCR:'Time to read: ' , t printString.
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     "
@@ -283,7 +283,7 @@
     |h s|
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -297,7 +297,7 @@
     self assert:( 'xxx1' asFilename contentsOfEntireFile = '1234567890' ).
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     "
@@ -309,7 +309,7 @@
     |h s|
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -327,7 +327,7 @@
     self assert:( 'xxx1' asFilename contentsOfEntireFile = '1234567890' ).
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     "
@@ -339,7 +339,7 @@
     |h s|
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -358,7 +358,7 @@
     self assert:( 'xxx1' asFilename contentsOfEntireFile = '12345abcdefghij' ).
 
     ('xxx1' asFilename exists) ifTrue:[
-        'xxx1' asFilename delete
+	'xxx1' asFilename delete
     ].
 
     "