The Trunk: CollectionsTests-nice.220.mcz

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!