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

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

Name: CollectionsTests-nice.113
Author: nice
Time: 16 November 2009, 10:27:57 am
UUID: aa10c4ac-e4d9-4c6c-8f96-40b454455b23
Ancestors: CollectionsTests-nice.112

Harder test for #withNoLineLongerThan:

=============== Diff against CollectionsTests-nice.112 ===============

Item was changed:
  ----- 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'].
+ 			phrase lineCount = 1 ifTrue: [| lastLineSize |
+ 				lastLineSize := length.
+ 				split linesDo: [:line |
+ 					line isEmpty ifFalse: [| firstWordSize |
+ 						firstWordSize := line indexOfAnyOf: CharacterSet separators startingAt: 1 ifAbsent: [line size + 1].
+ 						self assert: (lastLineSize + firstWordSize) > length description: 'split was too short'.
+ 						lastLineSize := line size]]]]]!
- 				self assert: line size <= length description: 'lines should not be longer than prescribed']]]!