--- a/RegressionTests__ExternalStreamTest.st Thu Feb 16 20:13:29 2017 +0100
+++ b/RegressionTests__ExternalStreamTest.st Thu Feb 16 20:14:13 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
@@ -56,7 +58,7 @@
|h s ch externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -86,13 +88,15 @@
"
self new testPosition1
"
+
+ "Modified: / 16-02-2017 / 18:06:38 / stefan"
!
testPosition2
|h s externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -114,15 +118,17 @@
"
self new testPosition2
"
+
+ "Modified: / 16-02-2017 / 18:07:01 / stefan"
!
testRead1
"open an existing file for reading; should read 10 chars"
- |h s nBytesRead externalReadStream|
+ |h s externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -130,7 +136,7 @@
s := externalReadStream on:h.
'1234567890' do:[:eachExpected |
- self assert:( s next == eachExpected ).
+ self assert:( s next == eachExpected ).
].
s close.
@@ -140,6 +146,8 @@
"
self new testRead1
"
+
+ "Modified: / 16-02-2017 / 18:07:08 / stefan"
!
testRead2
@@ -148,7 +156,7 @@
|h s externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -157,10 +165,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.
@@ -170,6 +178,8 @@
"
self new testRead2
"
+
+ "Modified: / 16-02-2017 / 18:07:16 / stefan"
!
testRead3
@@ -178,7 +188,7 @@
|h s bytesRead externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -198,13 +208,15 @@
"
self new testRead3
"
+
+ "Modified: / 16-02-2017 / 18:07:21 / stefan"
!
testReadWait1
|h s ok externalReadStream|
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalReadStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.
self createWithSize10:'xxx3'.
@@ -222,6 +234,8 @@
"
self new testReadWait1
"
+
+ "Modified: / 16-02-2017 / 18:07:26 / stefan"
!
testTiming1
@@ -229,19 +243,19 @@
externalWriteStream := (Smalltalk at:#ExternalWriteStream).
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalWriteStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
('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.
@@ -253,20 +267,22 @@
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
].
"
self new testTiming1
"
+
+ "Modified: / 16-02-2017 / 18:07:43 / stefan"
!
testTiming2
@@ -274,19 +290,19 @@
externalWriteStream := (Smalltalk at:#ExternalWriteStream).
externalReadStream := (Smalltalk at:#ExternalReadStream).
- self skipIf:externalWriteStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
('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.
@@ -298,30 +314,32 @@
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
].
"
self new testTiming2
"
+
+ "Modified: / 16-02-2017 / 18:07:56 / stefan"
!
testWrite1
|h s externalWriteStream|
externalWriteStream := (Smalltalk at:#ExternalWriteStream).
- self skipIf:externalWriteStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -335,22 +353,24 @@
self assert:( 'xxx1' asFilename contentsOfEntireFile = '1234567890' ).
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
"
self new testWrite1
"
+
+ "Modified: / 16-02-2017 / 18:08:02 / stefan"
!
testWrite2
|h s externalWriteStream|
externalWriteStream := (Smalltalk at:#ExternalWriteStream).
- self skipIf:externalWriteStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -368,22 +388,24 @@
self assert:( 'xxx1' asFilename contentsOfEntireFile = '1234567890' ).
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
"
self new testWrite2
"
+
+ "Modified: / 16-02-2017 / 18:08:07 / stefan"
!
testWrite3
|h s externalWriteStream|
externalWriteStream := (Smalltalk at:#ExternalWriteStream).
- self skipIf:externalWriteStream isBehavior not description:'skipped until new stream package is used'.
+ self skipIf:true "externalWriteStream isBehavior not" description:'skipped until new stream package is used'.
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
h := OperatingSystem createFileForReadWrite:'xxx1'.
@@ -402,12 +424,14 @@
self assert:( 'xxx1' asFilename contentsOfEntireFile = '12345abcdefghij' ).
('xxx1' asFilename exists) ifTrue:[
- 'xxx1' asFilename delete
+ 'xxx1' asFilename delete
].
"
self new testWrite3
"
+
+ "Modified: / 16-02-2017 / 18:08:14 / stefan"
! !
!ExternalStreamTest class methodsFor:'documentation'!