The Trunk: Files-nice.53.mcz

Nicolas Cellier uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-nice.53.mcz

==================== Summary ====================

Name: Files-nice.53
Author: nice
Time: 8 December 2009, 7:12:06 am
UUID: a9e60b4e-c9a2-44d2-b4fb-51ece2e6c154
Ancestors: Files-nice.52

A test for nextLine
Oops, aren't test a different package ?

=============== Diff against Files-nice.52 ===============

Item was added:
+ ----- Method: FileStreamTest>>testNextLine (in category 'as yet unclassified') -----
+ testNextLine
+ | filename lines text file |
+ 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.
+
+ [(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: [] ]!