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

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

Name: CollectionsTests-nice.132
Author: nice
Time: 18 January 2010, 11:41:21.276 pm
UUID: f05715a4-c516-47e6-a35e-10bee9b3d92c
Ancestors: CollectionsTests-nice.131

A test for #withSqueakLineEndings and for #withUnixLineEndings


=============== Diff against CollectionsTests-nice.131 ===============

Item was added:
+ ----- Method: StringTest>>testWithSqueakLineEndings (in category 'testing - internet') -----
+ testWithSqueakLineEndings
+ 
+ 	{
+ 		'abc' -> 'abc'.
+ 		'abc', String cr -> ('abc', String cr).
+ 		'abc', String lf -> ('abc', String cr).
+ 		'abc', String crlf -> ('abc', String cr).
+ 		String cr, 'abc' -> (String cr, 'abc').
+ 		String lf, 'abc' -> (String cr, 'abc').
+ 		String crlf, 'abc' -> (String cr, 'abc').
+ 		'abc', String cr, String cr, 'abc' -> ('abc', String cr, String cr, 'abc').
+ 		'abc', String lf, String lf, 'abc' -> ('abc', String cr, String cr, 'abc').
+ 		'abc', String crlf, String crlf, 'abc' -> ('abc', String cr, String cr, 'abc').
+ 		String cr, 'abc', String cr, String crlf, 'abc', String lf -> (String cr, 'abc', String cr, String cr, 'abc', String cr).
+ 		String lf, 'abc', String lf, String crlf, 'abc', String cr -> (String cr, 'abc', String cr, String cr, 'abc', String cr).
+ 	} do: [ :each |
+ 		self assert: each key withSqueakLineEndings = each value ]!

Item was added:
+ ----- Method: StringTest>>testWithUnixLineEndings (in category 'testing - internet') -----
+ testWithUnixLineEndings
+ 
+ 	{
+ 		'abc' -> 'abc'.
+ 		'abc', String cr -> ('abc', String lf).
+ 		'abc', String lf -> ('abc', String lf).
+ 		'abc', String crlf -> ('abc', String lf).
+ 		String cr, 'abc' -> (String lf, 'abc').
+ 		String lf, 'abc' -> (String lf, 'abc').
+ 		String crlf, 'abc' -> (String lf, 'abc').
+ 		'abc', String cr, String cr, 'abc' -> ('abc', String lf, String lf, 'abc').
+ 		'abc', String lf, String lf, 'abc' -> ('abc', String lf, String lf, 'abc').
+ 		'abc', String crlf, String crlf, 'abc' -> ('abc', String lf, String lf, 'abc').
+ 		String cr, 'abc', String cr, String crlf, 'abc', String lf -> (String lf, 'abc', String lf, String lf, 'abc', String lf).
+ 		String lf, 'abc', String lf, String crlf, 'abc', String cr -> (String lf, 'abc', String lf, String lf, 'abc', String lf).
+ 	} do: [ :each |
+ 		self assert: each key withUnixLineEndings = each value ]!