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