hg/stx-goodies-regression: comparison RegressionTests_

equal deleted inserted replaced

-:26a16a04219b
+:d406a10b2965
 !FileStreamTest methodsFor:'cleanup'!
 tearDown
 self testFilename remove
 ! !
 !FileStreamTest methodsFor:'helpers'!
 createBigDirectoryWithManyFiles
 "create a directory with 20000 files"
 'c:\tmp' asFilename exists ifFalse:[
-'c:\tmp' asFilename makeDirectory
+	'c:\tmp' asFilename makeDirectory
 ].
 'c:\tmp\BigDirectory' asFilename exists ifFalse:[
-'c:\tmp\BigDirectory' asFilename makeDirectory
+	'c:\tmp\BigDirectory' asFilename makeDirectory
 ].
 1 to:20000 do:[:i|
 |f s buffer|
 f :='c:\tmp\BigDirectory' asFilename
-construct:(i printString leftPaddedTo:5 with:$0).
+		    construct:(i printString leftPaddedTo:5 with:$0).
 s := f writeStream binary.
 buffer := ByteArray new:1024.
 32 timesRepeat:[ s nextPutAll:buffer ].
 s close.
 ].
 "
 |f bytes|
 f := self testFilename writeStream binary.
 bytes := ByteArray new:1024.
 1 to:bytes size do:[:i |
-bytes at:i put:(i \\ 256).
+	bytes at:i put:(i \\ 256).
 ].
 100 timesRepeat:[
-f nextPutAll:bytes.
+	f nextPutAll:bytes.
 ].
 f close.
 "
 |file s sz buffer byte|
 buffer := ByteArray new:size.
 1 to:buffer size do:[:idx |
-buffer at:idx put:(idx \\ 256)
+	buffer at:idx put:(idx \\ 256)
 ].
 file := Filename newTemporary.
 s := file writeStream.
 sz ~= size ifTrue:[self error:'size mismatch'].
 s := file readStream.
 s binary.
 1 to:size do:[:idx |
-byte := s next.
+	byte := s next.
-byte ~~ (idx \\ 256) ifTrue:[self error:'read data mismatch'].
+	byte ~~ (idx \\ 256) ifTrue:[self error:'read data mismatch'].
 ].
 s close.
 (file binaryContentsOfEntireFile ~= buffer) ifTrue:[
-self error:'read data mismatch2'
+	self error:'read data mismatch2'
 ].
 file delete.
 "
 self testWrite:1024
 f := self testFilename readStream binary.
 buffer := ByteArray new:128.
 n := 0.
 [f atEnd] whileFalse:[
-nRead := f nextBytes:128 into:buffer.
+	nRead := f nextBytes:128 into:buffer.
-n := n + nRead.
+	n := n + nRead.
 ].
 f close.
 self assert:(expect = n) description:('got <1p>; expected:<2p>' expandMacrosWith:n with:expect)
 "Created: / 12.8.1998 / 13:29:41 / cg"
 self assert:(self testFilename exists).
 sz := self testFilename fileSize.
 sema := Semaphore new:1-20.
 20 timesRepeat:[
-[
+	[
-[
+	    [
-self readFileExpecting:sz.
+		self readFileExpecting:sz.
-verbose ifTrue:[ 'done' printCR ].
+		verbose ifTrue:[ 'done' printCR ].
-] on:Error do:[:ex|
+	    ] on:Error do:[:ex|
-errorOccured := ex.
+		errorOccured := ex.
-].
+	    ].
-sema signal.
+	    sema signal.
-] fork.
+	] fork.
 ].
 self assert:(sema waitWithTimeout:20) notNil.
 self assert:errorOccured isNil.
 "
 self createTestFile.
 sz := self testFilename fileSize.
 p := [
-[
+	[
-nLoop timesRepeat:[
+	    nLoop timesRepeat:[
-self readFileExpecting:sz.
+		self readFileExpecting:sz.
-].
+	    ].
-] on:Error do:[:ex|
+	] on:Error do:[:ex|
-errorOccured := ex.
+	    errorOccured := ex.
-].
+	].
 ] forkAt:7.
 count := 0.
 [p isDead] whileFalse:[
-Delay waitForMilliseconds:5.
+	Delay waitForMilliseconds:5.
-p interruptWith:[count := count + 1].
+	p interruptWith:[count := count + 1].
 ].
 self assert:errorOccured isNil.
 self assert:count > 50. "/ at least 50 times interrupted...
 "/ Transcript printf:'read file %d times; interrupted %d times\n' with:nLoop with:count.
 sz := file fileSize.
 sz ~= 100 ifTrue:[self error:'size mismatch'].
 (file binaryContentsOfEntireFile ~= (101 to:200) asByteArray) ifTrue:[
-self error:'contents mismatch'
+	self error:'contents mismatch'
 ].
 file delete.
 "
 s close.
 sz := file fileSize.
 sz ~= 200 ifTrue:[self error:'size mismatch'].
 (file binaryContentsOfEntireFile ~=
-((101 to:200) asByteArray , (101 to:200) asByteArray)) ifTrue:[
+	((101 to:200) asByteArray , (101 to:200) asByteArray)) ifTrue:[
-self error:'contents mismatch'
+	self error:'contents mismatch'
 ].
 file delete.
 "
 testWrite2
 "basic writing"
 10 timesRepeat:[
-self testWrite1.
+	self testWrite1.
 ].
 "
 self new testWrite2
 "
 <timeout: 300>"5 mins"
 |interruptor|
 interruptor := [
-[true] whileTrue:[
+	[true] whileTrue:[
-Delay waitForMilliseconds:10.
+	    Delay waitForMilliseconds:10.
-].
+	].
 ] forkAt:9.
 [
-50 timesRepeat:[
+	50 timesRepeat:[
-self testWrite1.
+	    self testWrite1.
-].
+	].
 ] valueNowOrOnUnwindDo:[
-interruptor terminate
+	interruptor terminate
 ].
 "
 self new testWrite3
 "
 !
 testWriteEOLModes
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#crlf.
+	s eolMode:#crlf.
-s nextPutLine:'hello'
+	s nextPutLine:'hello'
 ].
 self assert:('xxx' asFilename fileSize == 7).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D 16r0A]).
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#nl.
+	s eolMode:#nl.
-s nextPutLine:'hello'
+	s nextPutLine:'hello'
 ].
 self assert:('xxx' asFilename fileSize == 6).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#cr.
+	s eolMode:#cr.
-s nextPutLine:'hello'
+	s nextPutLine:'hello'
 ].
 self assert:('xxx' asFilename fileSize == 6).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D]).
 "/ ------------------------
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#crlf.
+	s eolMode:#crlf.
-s nextPutAll:'hello' , Character cr
+	s nextPutAll:'hello' , Character cr
 ].
 self assert:('xxx' asFilename fileSize == 7).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D 16r0A]).
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#nl.
+	s eolMode:#nl.
-s nextPutAll:'hello' , Character cr
+	s nextPutAll:'hello' , Character cr
 ].
 self assert:('xxx' asFilename fileSize == 6).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).
 'xxx' asFilename writingFileDo:[:s |
-s eolMode:#cr.
+	s eolMode:#cr.
-s nextPutAll:'hello' , Character cr
+	s nextPutAll:'hello' , Character cr
 ].
 self assert:('xxx' asFilename fileSize == 6).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0D]).
 "/ in binary mode, this should be ignored
 'xxx' asFilename writingFileDo:[:s |
-s binary.
+	s binary.
-s eolMode:#crlf.
+	s eolMode:#crlf.
-s nextPutAll:'hello' , Character cr
+	s nextPutAll:'hello' , Character cr
 ].
 self assert:('xxx' asFilename fileSize == 6).
 self assert:('xxx' asFilename binaryContentsOfEntireFile = #[16r68 16r65 16r6C 16r6C 16r6F 16r0A]).

branch	jv
changeset 1500	d406a10b2965
parent 1499	26a16a04219b
parent 1447	2351db93aa5b
child 1604	550ad2d68e2a