Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.67.mcz
==================== Summary ====================
Name: Tests-ar.67 Author: ar Time: 2 April 2010, 12:45:17.743 am UUID: c3b6aa2e-ca57-7d4f-9bc9-2a987d17eedd Ancestors: Tests-ar.66
Add test for FileStream>>atEnd when file is positioned past end.
=============== Diff against Tests-ar.66 ===============
Item was added: + ----- 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:[]. + ].!
packages@lists.squeakfoundation.org