[Pkg] The Trunk: Files-nice.53.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Dec 8 18:12:14 UTC 2009


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



More information about the Packages mailing list