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

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

Name: CollectionsTests-nice.220
Author: nice
Time: 24 July 2014, 10:23:19.598 pm
UUID: c07ac7aa-4b7b-46bf-abe7-83e62da9e8f0
Ancestors: CollectionsTests-eem.219

Let ReadStreamTest test ReadStream, WriteStreamTest test WriteStream, and move ReadWriteStream tests in ReadWriteStreamTest.

=============== Diff against CollectionsTests-eem.219 ===============

Item was changed:
  ----- Method: ReadStreamTest>>testOnFromTo (in category 'tests - accessing') -----
  testOnFromTo
+ 	self assert: (ReadStream
- 	self assert: (ReadWriteStream
  						on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter]))
  						from: $A asInteger + 1
  						to: $Z asInteger + 1)
  					contents
+ 		equals: (String withAll: ($A to: $Z))!
- 		equals: (String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]))!

Item was changed:
  ----- Method: ReadWriteStreamTest>>testOnFromTo (in category 'tests') -----
  testOnFromTo
  	self assert: (ReadWriteStream
  						on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter]))
  						from: $A asInteger + 1
  						to: $Z asInteger + 1)
  					contents
+ 		equals: (String withAll: ($A to: $Z))!
- 		equals: (String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]))!

Item was added:
+ ----- Method: ReadWriteStreamTest>>testOnFromToWriting (in category 'tests') -----
+ testOnFromToWriting
+ 	| aToZ |
+ 	aToZ := String withAll: ($A to: $Z).
+ 	self assert: ((ReadWriteStream
+ 						on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter]))
+ 						from: $A asInteger + 1
+ 						to: $Z asInteger + 1)
+ 					nextPutAll: aToZ;
+ 					contents)
+ 		equals: aToZ!

Item was changed:
  ----- Method: WriteStreamTest>>testOnFromTo (in category 'tests - accessing') -----
  testOnFromTo
  	| aToZ |
+ 	aToZ := String withAll: ($A to: $Z).
+ 	self assert: ((WriteStream
- 	aToZ := String withAll: (($A asInteger to: $Z asInteger) collect: [:n| n asCharacter]).
- 	self assert: ((ReadWriteStream
  						on: (String withAll: ((0 to: 255) collect: [:n| n asCharacter]))
  						from: $A asInteger + 1
  						to: $Z asInteger + 1)
  					nextPutAll: aToZ;
  					contents)
  		equals: aToZ!