The Trunk: Tests-ar.67.mcz

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