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:[].
+ 	].!