--- a/RegressionTests__ExternalStreamTest.st Tue Dec 18 21:04:01 2001 +0100
+++ b/RegressionTests__ExternalStreamTest.st Tue Dec 18 21:14:25 2001 +0100
@@ -183,6 +183,47 @@
"
!
+testTiming
+ |h s t|
+
+ ('xxx1' asFilename exists) ifTrue:[
+ 'xxx1' asFilename delete
+ ].
+
+ h := OperatingSystem createFileForReadWrite:'xxx1'.
+ s := ExternalWriteStream on:h.
+
+ t := Time millisecondsToRun:[
+ 1000000 timesRepeat:[
+ s nextPut:$a.
+ ].
+ ].
+ s close.
+ Transcript showCR:'Time to write: ' , t printString.
+
+ self assert:( 'xxx1' asFilename exists ).
+ self assert:( 'xxx1' asFilename fileSize == 1000000 ).
+
+ h := OperatingSystem openFileForRead:'xxx1'.
+ s := ExternalReadStream on:h.
+
+ t := Time millisecondsToRun:[
+ 1000000 timesRepeat:[
+ self assert:(s next == $a).
+ ].
+ ].
+ s close.
+ Transcript showCR:'Time to read: ' , t printString.
+
+ ('xxx1' asFilename exists) ifTrue:[
+ 'xxx1' asFilename delete
+ ].
+
+ "
+ self new testTiming
+ "
+!
+
testWrite1
|h s|