[Pkg] The Trunk: Tests-ul.385.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 9 22:22:42 UTC 2017
Levente Uzonyi uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ul.385.mcz
==================== Summary ====================
Name: Tests-ul.385
Author: ul
Time: 10 October 2017, 12:04:33.723597 am
UUID: e78f8a8d-6b40-4e64-b052-a8ace225bb97
Ancestors: Tests-mt.384
- added RemoteStringTest with two tests to see if RemoteString works across different file streams
- recategorized all test methods in Tests-Files to be in the tests category
=============== Diff against Tests-mt.384 ===============
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingDirectory (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingDirectory (in category 'as yet unclassified') -----
testFileDirectoryContainingDirectory
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory on: 'C:'.
self assert: fd containingDirectory pathName = ''.
!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingDirectoryExistence (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingDirectoryExistence (in category 'as yet unclassified') -----
testFileDirectoryContainingDirectoryExistence
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory on: 'C:'.
self assert: (fd containingDirectory fileOrDirectoryExists: 'C:').!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingEntry (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryContainingEntry (in category 'as yet unclassified') -----
testFileDirectoryContainingEntry
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory on: 'C:'.
self assert: (fd containingDirectory entryAt: fd localName) notNil.
!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryDirectoryEntry (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryDirectoryEntry (in category 'as yet unclassified') -----
testFileDirectoryDirectoryEntry
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory on: 'C:'.
self assert: fd directoryEntry notNil.!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryEntryFor (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryEntryFor (in category 'as yet unclassified') -----
testFileDirectoryEntryFor
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory root directoryEntryFor: 'C:'.
self assert: (fd name sameAs: 'C:').!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryExists (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryExists (in category 'as yet unclassified') -----
testFileDirectoryExists
"Hoping that you have 'C:' of course..."
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
self assert: (FileDirectory root directoryExists: 'C:').!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryLocalName (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryLocalName (in category 'as yet unclassified') -----
testFileDirectoryLocalName
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory on: 'C:'.
self assert: fd localName = 'C:'.
!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryNamed (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryNamed (in category 'as yet unclassified') -----
testFileDirectoryNamed
"Hoping that you have 'C:' of course..."
| fd |
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
fd := FileDirectory root directoryNamed: 'C:'.
self assert: fd pathName = 'C:'.!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryNonExistence (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryNonExistence (in category 'as yet unclassified') -----
testFileDirectoryNonExistence
| inexistentFileName |
"Hoping that you have 'C:' of course..."
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
inexistentFileName := DosFileDirectory default nextNameFor: 'DosFileDirectoryTest' extension: 'temp'.
"This test can fail if another process creates a file with the same name as inexistentFileName
(the probability of that is very very remote)"
self deny: (DosFileDirectory default fileOrDirectoryExists: inexistentFileName)!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFileDirectoryRootExistence (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFileDirectoryRootExistence (in category 'as yet unclassified') -----
testFileDirectoryRootExistence
"Hoping that you have 'C:' of course..."
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
self assert: (FileDirectory root fileOrDirectoryExists: 'C:').!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testFullNameFor (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testFullNameFor (in category 'as yet unclassified') -----
testFullNameFor
"Hoping that you have 'C:' of course..."
FileDirectory activeDirectoryClass == DosFileDirectory ifFalse:[^self].
self assert: (FileDirectory default fullNameFor: 'C:') = 'C:'.
self assert: (FileDirectory default fullNameFor: 'C:\test') = 'C:\test'.
self assert: (FileDirectory default fullNameFor: '\\share') = '\\share'.
self assert: (FileDirectory default fullNameFor: '\\share\test') = '\\share\test'.
self assert: (FileDirectory default fullNameFor: '\test') = (FileDirectory default pathParts first, '\test').
!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testIsDriveForDrive (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testIsDriveForDrive (in category 'as yet unclassified') -----
testIsDriveForDrive
self assert: (DosFileDirectory isDrive: 'C:').
self deny: (DosFileDirectory isDrive: 'C:\').
self deny: (DosFileDirectory isDrive: 'C:\foo').
self deny: (DosFileDirectory isDrive: 'C:foo').!
Item was changed:
+ ----- Method: DosFileDirectoryTests>>testIsDriveForShare (in category 'tests') -----
- ----- Method: DosFileDirectoryTests>>testIsDriveForShare (in category 'as yet unclassified') -----
testIsDriveForShare
self assert: (DosFileDirectory isDrive: '\\server').
self deny: (DosFileDirectory isDrive: '\\server\').
self deny: (DosFileDirectory isDrive: '\\server\foo').
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testAddressRange (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testAddressRange (in category 'testing') -----
testAddressRange
"Test source pointer to file position address translation across a wide address range"
| sf i p a |
sf := ExpandedSourceFileArray new.
16r1000000 to: 16r10000000 by: 4093 do: [:e |
i := sf fileIndexFromSourcePointer: e.
p := sf filePositionFromSourcePointer: e.
a := sf sourcePointerFromFileIndex: i andPosition: p.
self assert: a = e]
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testChangesFileAddressRange (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testChangesFileAddressRange (in category 'testing') -----
testChangesFileAddressRange
"Test file position to source pointer address translation for the changes file"
| sf i p a a2 |
sf := ExpandedSourceFileArray new.
0 to: 16r1FFFFFFF by: 4093 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
i := sf fileIndexFromSourcePointer: a.
self assert: i = 2.
p := sf filePositionFromSourcePointer: a.
self assert: p = e.
a2 := sf sourcePointerFromFileIndex: 2 andPosition: p.
self assert: a2 = a].
0 to: 16rFFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r2000000 and: 16r2FFFFFF)].
16r1000000 to: 16r1FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r4000000 and: 16r4FFFFFF)].
16r2000000 to: 16r2FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r6000000 and: 16r6FFFFFF)].
16r3000000 to: 16r3FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r8000000 and: 16r8FFFFFF)].
16r4000000 to: 16r4FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16rA000000 and: 16rAFFFFFF)].
16r5000000 to: 16r5FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16rC000000 and: 16rCFFFFFF)].
16r6000000 to: 16r6FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16rE000000 and: 16rEFFFFFF)].
16r7000000 to: 16r7FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r10000000 and: 16r10FFFFFF)]
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testCompatibilityWithStandardSourceFileArray (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testCompatibilityWithStandardSourceFileArray (in category 'testing') -----
testCompatibilityWithStandardSourceFileArray
"Test compatibility with StandardSourceFileArray across the address range of
StandardSourceFileArray, including the unused address space below 16r1000000"
| ssf esf i1 i2 p1 p2 a1 a2 |
ssf := StandardSourceFileArray new.
esf := ExpandedSourceFileArray new.
0 to: 16rFFFFFF by: 811 do: [:e |
i1 := ssf fileIndexFromSourcePointer: e.
i2 := esf fileIndexFromSourcePointer: e.
self assert: i1 = i2.
self assert: i1 = 0. "This is unused address space"
p1 := ssf filePositionFromSourcePointer: e.
p2 := esf filePositionFromSourcePointer: e.
self assert: p1 = p2].
16r4FFFFFF to: 16r4FFFFFF by: 811 do: [:e |
i1 := ssf fileIndexFromSourcePointer: e.
i2 := esf fileIndexFromSourcePointer: e.
self assert: i1 = i2.
p1 := ssf filePositionFromSourcePointer: e.
p2 := esf filePositionFromSourcePointer: e.
self assert: p1 = p2.
a1 := ssf sourcePointerFromFileIndex: i1 andPosition: p1.
a2 := esf sourcePointerFromFileIndex: i2 andPosition: p2.
self assert: a1 = a2.
self assert: a1= e]
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testFileIndexFromSourcePointer (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testFileIndexFromSourcePointer (in category 'testing') -----
testFileIndexFromSourcePointer
"Test derivation of file index for sources or changes file from source pointers"
| sf |
sf := ExpandedSourceFileArray new.
"sources file mapping"
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1000000).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1000013).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1FFFFFF).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3000000).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3000013).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3FFFFFF).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r5000000).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r5000013).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r5FFFFFF).
(16r1000000 to: 16r1FFFFFF by: 811) do: [:e | self assert: 1 = (sf fileIndexFromSourcePointer: e)].
(16r3000000 to: 16r3FFFFFF by: 811) do: [:e | self assert: 1 = (sf fileIndexFromSourcePointer: e)].
"changes file mapping"
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2000000).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2000013).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2FFFFFF).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4000000).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4000013).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4FFFFFF).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r6000000).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r6000013).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r6FFFFFF).
(16r2000000 to: 16r2FFFFFF by: 811) do: [:e | self assert: 2 = (sf fileIndexFromSourcePointer: e)].
(16r4000000 to: 16r4FFFFFF by: 811) do: [:e | self assert: 2 = (sf fileIndexFromSourcePointer: e)].
"the following numeric ranges are unused but currently produces results as follows"
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0000000).
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0000013).
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0FFFFFF)
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testFilePositionFromSourcePointer (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testFilePositionFromSourcePointer (in category 'testing') -----
testFilePositionFromSourcePointer
"Test derivation of file position for sources or changes file from source pointers"
| sf |
sf := ExpandedSourceFileArray new.
"sources file"
self assert: 0 = (sf filePositionFromSourcePointer: 16r1000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r1000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r1FFFFFF).
self assert: 16r1000000 = (sf filePositionFromSourcePointer: 16r3000000).
self assert: 16r1000013 = (sf filePositionFromSourcePointer: 16r3000013).
self assert: 16r1FFFFFF = (sf filePositionFromSourcePointer: 16r3FFFFFF).
"changes file"
self assert: 0 = (sf filePositionFromSourcePointer: 16r2000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r2000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r2FFFFFF).
self assert: 16r1000000 = (sf filePositionFromSourcePointer: 16r4000000).
self assert: 16r1000013 = (sf filePositionFromSourcePointer: 16r4000013).
self assert: 16r1FFFFFF = (sf filePositionFromSourcePointer: 16r4FFFFFF).
"the following numeric ranges are unused but currently produces results as follows"
self assert: 0 = (sf filePositionFromSourcePointer: 16r0000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r0000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r0FFFFFF)
!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testSourcePointerFromFileIndexAndPosition (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testSourcePointerFromFileIndexAndPosition (in category 'testing') -----
testSourcePointerFromFileIndexAndPosition
"Test valid input ranges"
| sf |
sf := ExpandedSourceFileArray new.
self should: [sf sourcePointerFromFileIndex: 0 andPosition: 0] raise: Error.
self should: [sf sourcePointerFromFileIndex: 0 andPosition: 3] raise: Error.
self should: [sf sourcePointerFromFileIndex: 1 andPosition: -1] raise: Error.
self should: [sf sourcePointerFromFileIndex: 3 andPosition: 0] raise: Error.
self should: [sf sourcePointerFromFileIndex: 4 andPosition: 0] raise: Error.
self assert: 16r1000000 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 0).
self assert: 16r1000013 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r13).
self assert: 16r1FFFFFF equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16rFFFFFF).
self assert: 16r2000000 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 0).
self assert: 16r2000013 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r13).
self assert: 16r2FFFFFF equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16rFFFFFF).
self assert: 16r3000000 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1000000).
self assert: 16r3000013 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1000013).
self assert: 16r3FFFFFF equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1FFFFFF).
self assert: 16r4000000 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1000000).
self assert: 16r4000013 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1000013).
self assert: 16r4FFFFFF equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1FFFFFF).
self assert: 16r5000000 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r2000000).!
Item was changed:
+ ----- Method: ExpandedSourceFileArrayTest>>testSourcesFileAddressRange (in category 'tests') -----
- ----- Method: ExpandedSourceFileArrayTest>>testSourcesFileAddressRange (in category 'testing') -----
testSourcesFileAddressRange
"Test file position to source pointer address translation for the sources file"
| sf i p a a2 |
sf := ExpandedSourceFileArray new.
0 to: 16r1FFFFFFF by: 4093 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
i := sf fileIndexFromSourcePointer: a.
self assert: i = 1.
p := sf filePositionFromSourcePointer: a.
self assert: p = e.
a2 := sf sourcePointerFromFileIndex: 1 andPosition: p.
self assert: a2 = a].
0 to: 16rFFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r1000000 and: 16r1FFFFFF)].
16r1000000 to: 16r1FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r3000000 and: 16r3FFFFFF)].
16r2000000 to: 16r2FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r5000000 and: 16r5FFFFFF)].
16r3000000 to: 16r3FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r7000000 and: 16r7FFFFFF)].
16r4000000 to: 16r4FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r9000000 and: 16r9FFFFFF)].
16r5000000 to: 16r5FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16rB000000 and: 16rBFFFFFF)].
16r6000000 to: 16r6FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16rD000000 and: 16rDFFFFFF)].
16r7000000 to: 16r7FFFFFF by: 811 do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16rF000000 and: 16rFFFFFFF)]
!
Item was changed:
+ ----- Method: FileStreamTest>>testCachingNextChunkPut (in category 'tests') -----
- ----- Method: FileStreamTest>>testCachingNextChunkPut (in category 'as yet unclassified') -----
testCachingNextChunkPut
"Ensure that nextChunkPut:/nextChunk works properly on a caching file"
| file text read |
[file := FileStream forceNewFileNamed: 'testCachingNextChunkPut'.
text := 'this is a chunkful of text'.
file nextChunkPut: text.
read := [file position: 0; nextChunkText] valueWithin: 1 seconds onTimeout:[''].
self assert: read = text.
] ensure:[file close. FileDirectory default deleteFileNamed: file name ifAbsent:[]].!
Item was changed:
+ ----- Method: FileStreamTest>>testDetectFileDo (in category 'tests') -----
- ----- Method: FileStreamTest>>testDetectFileDo (in category 'as yet unclassified') -----
testDetectFileDo
"Mantis #1838"
| filename |
filename := 'filestream.tst'.
[(FileDirectory default forceNewFileNamed: filename)
nextPutAll: '42';
close.
FileStream
detectFile: [FileDirectory default oldFileNamed: filename]
do: [:file |
self assert: file notNil.
self deny: file closed.
self assert: file contentsOfEntireFile = '42']]
ensure: [FileDirectory default deleteFileNamed: filename ifAbsent: [] ]!
Item was changed:
+ ----- Method: FileStreamTest>>testFileTruncation (in category 'tests') -----
- ----- Method: FileStreamTest>>testFileTruncation (in category 'as yet unclassified') -----
testFileTruncation
"Ensure that nextChunkPut:/nextChunk works properly on a caching file"
| file |
file := nil.
[
file := FileDirectory default forceNewFileNamed: 'TruncationTest.txt'.
file nextPutAll: '1234567890'.
] ensure: [file close].
[
file := FileDirectory default oldFileNamed: 'TruncationTest.txt'.
self should: [file contents = '1234567890'].
file truncate: 4.
] ensure: [file close].
[
file := FileDirectory default readOnlyFileNamed: 'TruncationTest.txt'.
self should: [file contents = '1234'].
] ensure: [
file close.
FileDirectory default deleteFileNamed: file name ifAbsent:[]
].
!
Item was changed:
+ ----- Method: FileStreamTest>>testNextChunkOutOfBounds (in category 'tests') -----
- ----- Method: FileStreamTest>>testNextChunkOutOfBounds (in category 'as yet unclassified') -----
testNextChunkOutOfBounds
"Ensure that nextChunkPut:/nextChunk works properly on a caching file"
| file text read |
[file := FileStream forceNewFileNamed: 'testNextChunkOutOfBounds'.
text := 'this is a chunkful of text'.
file nextChunkPut: text.
read := [file position: 999999; nextChunkText] valueWithin: 1 seconds onTimeout:[nil].
self assert: read = ''.
] ensure:[file close. FileDirectory default deleteFileNamed: file name ifAbsent:[]].!
Item was changed:
+ ----- Method: FileStreamTest>>testNextLine (in category 'tests') -----
- ----- Method: FileStreamTest>>testNextLine (in category 'as yet unclassified') -----
testNextLine
| filename lines text |
filename := 'filestream.tst'.
lines := #('line 1' ' and line 2' '' 'fourth').
text := lines first , String cr , lines second , String crlf , lines third , String lf , lines fourth.
[ | file |
(StandardFileStream forceNewFileNamed: filename)
nextPutAll: text;
close.
file := StandardFileStream readOnlyFileNamed: filename.
lines do: [:e |
self assert: file nextLine = e].
self assert: file nextLine = nil.
file close]
ensure: [FileDirectory default deleteFileNamed: filename ifAbsent: [] ]!
Item was changed:
+ ----- Method: FileStreamTest>>testPositionPastEndIsAtEnd (in category 'tests') -----
- ----- Method: FileStreamTest>>testPositionPastEndIsAtEnd (in category 'as yet unclassified') -----
testPositionPastEndIsAtEnd
"Tests that a file positioned after its end responds true to #atEnd"
| filename file |
filename := 'filestream.tst'.
file := StandardFileStream forceNewFileNamed: filename.
[
file position: 1000.
self assert: file atEnd.
] ensure:[
file close.
FileDirectory default deleteFileNamed: filename ifAbsent:[].
].!
Item was changed:
+ ----- Method: FileStreamTest>>testReadIntoStartingAtCount (in category 'tests') -----
- ----- Method: FileStreamTest>>testReadIntoStartingAtCount (in category 'as yet unclassified') -----
testReadIntoStartingAtCount
| filename file |
filename := 'filestream.tst'.
[ | writeBuffer readBuffer bytesRead |
writeBuffer := (ByteArray new: 2500)
atAllPut: 1 ;
yourself.
(StandardFileStream forceNewFileNamed: filename)
binary ;
nextPutAll: writeBuffer ;
close.
file := StandardFileStream readOnlyFileNamed: filename.
readBuffer := ByteArray new: 400.
bytesRead := file
readInto: readBuffer
startingAt: 10
count: 100.
self assert: bytesRead = 100.
"quick test"
self assert: (readBuffer occurrencesOf: 1) = 100.
"compare test"
1 to: readBuffer size do:
[ : n | self assert:
(readBuffer at: n) = ((n between: 10 and: 10 + 100 - 1)
ifTrue: [ writeBuffer at: n ]
ifFalse: [ 0 ]) ] ]
ensure:
[ file ifNotNil: [ file close ].
FileDirectory default
deleteFileNamed: filename
ifAbsent: [ "ok" ] ]!
Item was changed:
+ ----- Method: MacFileDirectoryTest>>testMacFileDirectory (in category 'tests') -----
- ----- Method: MacFileDirectoryTest>>testMacFileDirectory (in category 'test') -----
testMacFileDirectory
"(self run: #testMacFileDirectory)"
"This fails before the the fix if the Squeak directory is on the root
directory like: 'HardDisk:Squeak'
But should work both before and after the fix of John if there is several
directories in the hieracry: HardDisk:User:Squeak"
"If somebody can find a way to make the test failed all the time when the fix is not
present we should replace it"
self assert: (FileDirectory default fullName) = (FileDirectory default fullNameFor: (FileDirectory default fullName))!
Item was changed:
+ ----- Method: MacFileDirectoryTest>>testMacIsAbsolute (in category 'tests') -----
- ----- Method: MacFileDirectoryTest>>testMacIsAbsolute (in category 'test') -----
testMacIsAbsolute
"(self selector: #testMacIsAbsolute) run"
self deny: (MacFileDirectory isAbsolute: 'Volumes').
self assert: (MacFileDirectory isAbsolute: 'Volumes:Data:Stef').
self deny: (MacFileDirectory isAbsolute: ':Desktop:test.st')!
Item was changed:
+ ----- Method: MacFileDirectoryTest>>testMakeAbsolute (in category 'tests') -----
- ----- Method: MacFileDirectoryTest>>testMakeAbsolute (in category 'test') -----
testMakeAbsolute
self assert: (MacFileDirectory isAbsolute: (MacFileDirectory makeAbsolute: 'Data')).
self assert: (MacFileDirectory isAbsolute: (MacFileDirectory makeAbsolute: ':Data')).
!
Item was added:
+ TestCase subclass: #RemoteStringTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Files'!
Item was added:
+ ----- Method: RemoteStringTest>>testMultipleStringWritesAndReadUsingDifferentFiles (in category 'tests') -----
+ testMultipleStringWritesAndReadUsingDifferentFiles
+
+ | changesFileIndex sourceFile readOnlySourceFile stringsToWrite writtenRemoteStrings |
+ changesFileIndex := 2.
+ sourceFile := SourceFiles at: changesFileIndex.
+ "Ensure that CurrentReadOnlySourceFile is opened."
+ readOnlySourceFile := CurrentReadOnlySourceFiles at: changesFileIndex.
+ "Write a new string."
+ stringsToWrite := (1 to: 5) collect: [ :each |
+ Time utcMicrosecondClock asString, '_', each asString ].
+ writtenRemoteStrings := stringsToWrite collect: [ :each |
+ RemoteString
+ newString: each
+ onFileNumber: changesFileIndex
+ toFile: sourceFile ].
+ "Read the new chunk from CurrentReadOnlySourceFile."
+ writtenRemoteStrings size to: 1 by: -1 do: [ :index |
+ | writtenRemoteString readOnlyRemoteString |
+ writtenRemoteString := writtenRemoteStrings at: index.
+ readOnlyRemoteString := RemoteString
+ newFileNumber: changesFileIndex
+ position: writtenRemoteString position.
+ self assert: (stringsToWrite at: index) equals: readOnlyRemoteString text asString ]!
Item was added:
+ ----- Method: RemoteStringTest>>testStringWriteAndReadUsingDifferentFiles (in category 'tests') -----
+ testStringWriteAndReadUsingDifferentFiles
+
+ | changesFileIndex sourceFile readOnlySourceFile stringToWrite writtenRemoteString readOnlyRemoteString |
+ changesFileIndex := 2.
+ sourceFile := SourceFiles at: changesFileIndex.
+ "Ensure that CurrentReadOnlySourceFile is opened."
+ readOnlySourceFile := CurrentReadOnlySourceFiles at: changesFileIndex.
+ "Write a new string."
+ stringToWrite := Time utcMicrosecondClock asString.
+ writtenRemoteString := RemoteString
+ newString: stringToWrite
+ onFileNumber: changesFileIndex
+ toFile: sourceFile.
+ "Read the new chunk from CurrentReadOnlySourceFile."
+ readOnlyRemoteString := RemoteString
+ newFileNumber: changesFileIndex
+ position: writtenRemoteString position.
+ self assert: stringToWrite equals: readOnlyRemoteString text asString!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testAddressRange (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testAddressRange (in category 'testing') -----
testAddressRange
"Test source pointer to file position address translation across the full address range"
| sf |
sf := StandardSourceFileArray new.
(16r1000000 to: 16r4FFFFFF by: 811) do: [:e | | i a p |
i := sf fileIndexFromSourcePointer: e.
p := sf filePositionFromSourcePointer: e.
a := sf sourcePointerFromFileIndex: i andPosition: p.
self assert: a = e]
!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testChangesFileAddressRange (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testChangesFileAddressRange (in category 'testing') -----
testChangesFileAddressRange
"Test file position to source pointer address translation for the changes file"
| sf a |
sf := StandardSourceFileArray new.
(0 to: 16r1FFFFFF by: 811) do: [:e | | a2 i p |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
i := sf fileIndexFromSourcePointer: a.
self assert: i = 2.
p := sf filePositionFromSourcePointer: a.
self assert: p = e.
a2 := sf sourcePointerFromFileIndex: 2 andPosition: p.
self assert: a2 = a].
(0 to: 16rFFFFFF by: 811) do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r2000000 and: 16r2FFFFFF)].
(16r1000000 to: 16r1FFFFFF by: 811) do: [:e |
a := sf sourcePointerFromFileIndex: 2 andPosition: e.
self assert: (a between: 16r4000000 and: 16r4FFFFFF)]
!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testFileIndexFromSourcePointer (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testFileIndexFromSourcePointer (in category 'testing') -----
testFileIndexFromSourcePointer
"Test derivation of file index for sources or changes file from source pointers"
| sf |
sf := StandardSourceFileArray new.
"sources file mapping"
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1000000).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1000013).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r1FFFFFF).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3000000).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3000013).
self assert: 1 = (sf fileIndexFromSourcePointer: 16r3FFFFFF).
(16r1000000 to: 16r1FFFFFF by: 811) do: [:e | self assert: 1 = (sf fileIndexFromSourcePointer: e)].
(16r3000000 to: 16r3FFFFFF by: 811) do: [:e | self assert: 1 = (sf fileIndexFromSourcePointer: e)].
"changes file mapping"
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2000000).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2000013).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r2FFFFFF).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4000000).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4000013).
self assert: 2 = (sf fileIndexFromSourcePointer: 16r4FFFFFF).
(16r2000000 to: 16r2FFFFFF by: 811) do: [:e | self assert: 2 = (sf fileIndexFromSourcePointer: e)].
(16r4000000 to: 16r4FFFFFF by: 811) do: [:e | self assert: 2 = (sf fileIndexFromSourcePointer: e)].
"the following numeric ranges are unused but currently produces results as follows"
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0000000).
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0000013).
self assert: 0 = (sf fileIndexFromSourcePointer: 16r0FFFFFF)
!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testFilePositionFromSourcePointer (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testFilePositionFromSourcePointer (in category 'testing') -----
testFilePositionFromSourcePointer
"Test derivation of file position for sources or changes file from source pointers"
| sf |
sf := StandardSourceFileArray new.
"sources file"
self assert: 0 = (sf filePositionFromSourcePointer: 16r1000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r1000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r1FFFFFF).
self assert: 16r1000000 = (sf filePositionFromSourcePointer: 16r3000000).
self assert: 16r1000013 = (sf filePositionFromSourcePointer: 16r3000013).
self assert: 16r1FFFFFF = (sf filePositionFromSourcePointer: 16r3FFFFFF).
"changes file"
self assert: 0 = (sf filePositionFromSourcePointer: 16r2000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r2000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r2FFFFFF).
self assert: 16r1000000 = (sf filePositionFromSourcePointer: 16r4000000).
self assert: 16r1000013 = (sf filePositionFromSourcePointer: 16r4000013).
self assert: 16r1FFFFFF = (sf filePositionFromSourcePointer: 16r4FFFFFF).
"the following numeric ranges are unused but currently produces results as follows"
self assert: 0 = (sf filePositionFromSourcePointer: 16r0000000).
self assert: 16r13 = (sf filePositionFromSourcePointer: 16r0000013).
self assert: 16rFFFFFF = (sf filePositionFromSourcePointer: 16r0FFFFFF)
!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testSourcePointerFromFileIndexAndPosition (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testSourcePointerFromFileIndexAndPosition (in category 'testing') -----
testSourcePointerFromFileIndexAndPosition
"Test valid input ranges"
| sf |
sf := StandardSourceFileArray new.
self should: [sf sourcePointerFromFileIndex: 0 andPosition: 0] raise: Error.
self should: [sf sourcePointerFromFileIndex: 0 andPosition: 3] raise: Error.
self should: [sf sourcePointerFromFileIndex: 1 andPosition: -1] raise: Error.
self should: [sf sourcePointerFromFileIndex: 1 andPosition: 16r2000000] raise: Error.
self should: [sf sourcePointerFromFileIndex: 3 andPosition: 0] raise: Error.
self should: [sf sourcePointerFromFileIndex: 4 andPosition: 0] raise: Error.
self assert: 16r1000000 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 0).
self assert: 16r1000013 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r13).
self assert: 16r1FFFFFF equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16rFFFFFF).
self assert: 16r2000000 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 0).
self assert: 16r2000013 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r13).
self assert: 16r2FFFFFF equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16rFFFFFF).
self assert: 16r3000000 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1000000).
self assert: 16r3000013 equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1000013).
self assert: 16r3FFFFFF equals: (sf sourcePointerFromFileIndex: 1 andPosition: 16r1FFFFFF).
self assert: 16r4000000 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1000000).
self assert: 16r4000013 equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1000013).
self assert: 16r4FFFFFF equals: (sf sourcePointerFromFileIndex: 2 andPosition: 16r1FFFFFF).!
Item was changed:
+ ----- Method: StandardSourceFileArrayTest>>testSourcesFileAddressRange (in category 'tests') -----
- ----- Method: StandardSourceFileArrayTest>>testSourcesFileAddressRange (in category 'testing') -----
testSourcesFileAddressRange
"Test file position to source pointer address translation for the sources file"
| sf a |
sf := StandardSourceFileArray new.
(0 to: 16r1FFFFFF by: 811) do: [:e | | a2 p i |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
i := sf fileIndexFromSourcePointer: a.
self assert: i = 1.
p := sf filePositionFromSourcePointer: a.
self assert: p = e.
a2 := sf sourcePointerFromFileIndex: 1 andPosition: p.
self assert: a2 = a].
(0 to: 16rFFFFFF by: 811) do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r1000000 and: 16r1FFFFFF)].
(16r1000000 to: 16r1FFFFFF by: 811) do: [:e |
a := sf sourcePointerFromFileIndex: 1 andPosition: e.
self assert: (a between: 16r3000000 and: 16r3FFFFFF)]
!
Item was changed:
+ ----- Method: UnixFileDirectoryTests>>testCheckNameFixErrors (in category 'tests') -----
- ----- Method: UnixFileDirectoryTests>>testCheckNameFixErrors (in category 'testing') -----
testCheckNameFixErrors
| directory bigName maxLength |
"Do not use #on:, it will use the default directory class, which
might be different on this platform."
directory := UnixFileDirectory new setPathName: '.'.
self assert: ('abc' = (directory checkName: 'abc' fixErrors: false)).
self assert: ('abc' = (directory checkName: 'abc' fixErrors: true)).
"These test the superclass implementation."
self should: [directory checkName: '' fixErrors: false] raise: Error.
self should: [directory checkName: '' fixErrors: true] raise: Error.
maxLength := directory class maxFileNameLength.
bigName := String streamContents: [:s | maxLength + 1 timesRepeat: [s nextPut: $1]].
self should: [directory checkName: bigName fixErrors: false] raise: Error.
"#contractTo: seems a little odd, but it is what #checkName:fixErrors: uses"
self assert: ((bigName contractTo: maxLength) = (directory checkName: bigName fixErrors: true)).
"UnixFileDirectory specific tests"
"UnixFileDirectory will turn / into #, if told to fix errors."
self assert: ('a#b#c' = (directory checkName: 'a/b/c' fixErrors: true)).
"And it will raise an error if it does not fix errors."
self should: [(directory checkName: 'a/b/c' fixErrors: false)] raise: Error!
More information about the Packages
mailing list