The Trunk: ToolsTests-nice.69.mcz

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

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

Name: ToolsTests-nice.69
Author: nice
Time: 27 July 2014, 3:55:03.028 pm
UUID: 53091322-737b-4b76-9e47-2e35cefb723b
Ancestors: ToolsTests-cmm.68

Don't use a ReadWriteStream when our intention is just to sequentially write then read.
ReadWriteStream and its complexity should be reserved to random read/write access.
Instead, write on a WriteStream, then read from a ReadStream using new conveniency WriteStream>>readStream..

=============== Diff against ToolsTests-cmm.68 ===============

Item was changed:
  ----- Method: FileContentsBrowserTest>>setUp (in category 'as yet unclassified') -----
  setUp
  | fileout testCat package packageDict organizer |
  testCat := self class category.
+ fileout := WriteStream on: (String new: 10000).
- fileout := ReadWriteStream on: (String new: 10000).
  SystemOrganization fileOutCategory: testCat on: fileout.
 
  packageDict := Dictionary new.
  browser := FileContentsBrowser new.
  organizer := SystemOrganizer defaultList: Array new.
+ package := (FilePackage new fullName: testCat; fileInFrom: fileout readStream).
- package := (FilePackage new fullName: testCat; fileInFrom: fileout).
  packageDict
  at: package packageName
  put: package.
  organizer
  classifyAll: package classes keys
  under: package packageName.
  (browser := FileContentsBrowser systemOrganizer: organizer)
  packages: packageDict.!