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

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

Name: CollectionsTests-nice.112
Author: nice
Time: 16 November 2009, 9:39:08 am
UUID: 14c3918f-73ec-4aa1-9dde-cf46d5b6e056
Ancestors: CollectionsTests-nice.111

Test #withNoLineLongerThan:

=============== Diff against CollectionsTests-nice.111 ===============

Item was added:
+ ----- Method: StringTest>>testWthNoLineLongerThan (in category 'testing - lines') -----
+ testWthNoLineLongerThan
+ 	| phrases |
+ 	phrases := {
+ 		'Fred the bear went down to the brook to read his book in silence'.
+ 		'Fred the bear went down' , String cr , ' to the brook to ' , String cr , 'read his book in silence'.
+ 		'Fred the bear went down' , String lf , '  to the brook to ' , String lf , 'read his book in silence'.
+ 		'Fred the bear went down' , String crlf , '  to the brook to ' , String crlf , 'read his book in silence'.
+ 		}.
+ 	#(5 7 9) do: [:length |
+ 		phrases do: [:phrase |
+ 			| split |
+ 			split := phrase withNoLineLongerThan: length.
+ 			self
+ 				assert: (split copyWithoutAll: CharacterSet separators) = (phrase copyWithoutAll: CharacterSet separators)
+ 				description: 'no information should be lost'.
+ 			split linesDo: [:line |
+ 				self assert: line size <= length description: 'lines should not be longer than prescribed']]]!