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=='.
+ !