The Trunk: CollectionsTests-ar.156.mcz

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ar.156.mcz

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

Name: CollectionsTests-ar.156
Author: ar
Time: 9 March 2010, 10:24:51.243 pm
UUID: a053fc22-84ef-c249-88f6-95a9b9386a28
Ancestors: CollectionsTests-ar.155

Update base64 tests.

=============== Diff against CollectionsTests-ar.155 ===============

Item was changed:
  ----- Method: Base64MimeConverterTest>>testMimeEncodeDecode (in category 'tests') -----
  testMimeEncodeDecode
 
  | encoded |
  encoded := Base64MimeConverter mimeEncode: message.
  self assert: (encoded contents = 'SGkgVGhlcmUh').
       self assert: ((Base64MimeConverter mimeDecodeToChars: encoded) contents = message contents).
 
+ "Encoding should start from the beginning of the stream."
- "Encoding should proceed from the current stream position."
  message reset.
  message skip: 2.
  encoded := Base64MimeConverter mimeEncode: message.
+ self assert: (encoded contents = 'SGkgVGhlcmUh').
+
+ "Encoding should start from the current position of the stream."
+ message reset.
+ message skip: 2.
+ encoded := Base64MimeConverter mimeEncodeContinue: message.
  self assert: (encoded contents = 'IFRoZXJlIQ==').!

Item was added:
+ ----- Method: Base64MimeConverterTest>>testMimeEncodeDecodeMultiLine (in category 'tests') -----
+ testMimeEncodeDecodeMultiLine
+
+ | encoded |
+ encoded := (Base64MimeConverter mimeEncode: (String new: 100 withAll: $a) readStream) contents.
+ self assert: encoded =
+ 'YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFh
+ YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=='.
+
+ encoded := (Base64MimeConverter mimeEncode: (String new: 100 withAll: $a) readStream multiLine: false) contents.
+ self assert: encoded =
+ 'YWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYWFhYQ=='.
+ !