[Pkg] The Trunk: CollectionsTests-nice.220.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jul 24 20:23:42 UTC 2014
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!
More information about the Packages
mailing list