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