Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.66.mcz
==================== Summary ====================
Name: Tests-ar.66 Author: ar Time: 29 March 2010, 9:00:35.581 pm UUID: f10906a2-7e5d-0e41-a82e-031645e0d329 Ancestors: Tests-ul.65
Add two tests for FileStream behavior. One that I thought was broken (but is not) and one that is broken.
=============== Diff against Tests-ul.65 ===============
Item was added: + ----- 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 added: + ----- 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:[]].!