The Trunk: CollectionsTests-eem.216.mcz

Eliot Miranda uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-eem.216.mcz

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

Name: CollectionsTests-eem.216
Author: eem
Time: 2 May 2014, 9:51:57.073 am
UUID: 51439739-6902-45d6-86d1-461fa61b652a
Ancestors: CollectionsTests-topa.215

Add tests that expect unsurprising behaviour from
([Read|Write]Stream on:...from:...to:...) contents

=============== Diff against CollectionsTests-topa.215 ===============

Item was added:
+ ----- Method: ReadStreamTest>>testOnFromTo (in category 'tests - accessing') -----
+ 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 asInteger to: $Z asInteger) collect: [:n| n asCharacter]))!

Item was added:
+ ----- 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 asInteger to: $Z asInteger) collect: [:n| n asCharacter]))!

Item was added:
+ ----- Method: WriteStreamTest>>testOnFromTo (in category 'tests - accessing') -----
+ testOnFromTo
+       | aToZ |
+       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!