The Trunk: Tests-cmm.61.mcz

Chris Muller uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-cmm.61.mcz

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

Name: Tests-cmm.61
Author: cmm
Time: 15 March 2010, 12:19:05.306 pm
UUID: 4f5f2626-6ef6-492b-85d6-7ea0c4a8c057
Ancestors: Tests-cmm.60

Fixed testReadIntoStartingAtCount.

=============== Diff against Tests-cmm.60 ===============

Item was changed:
  ----- Method: FileStreamTest>>testReadIntoStartingAtCount (in category 'as yet unclassified') -----
  testReadIntoStartingAtCount
  | filename file |
  filename := 'filestream.tst'.
  [ | writeBuffer readBuffer bytesRead |
  writeBuffer := (ByteArray new: 2500)
  atAllPut: 1 ;
  yourself.
  (StandardFileStream forceNewFileNamed: filename)
  binary ;
  nextPutAll: writeBuffer ;
  close.
  file := StandardFileStream readOnlyFileNamed: filename.
  readBuffer := ByteArray new: 400.
  bytesRead := file
  readInto: readBuffer
  startingAt: 10
  count: 100.
  self assert: bytesRead = 100.
  "quick test"
+ self assert: (readBuffer occurrencesOf: 1) = 100.
- self assert: (bytesRead occurrencesOf: 1) = 100.
  "compare test"
  1 to: readBuffer size do:
  [ : n | self assert:
+ ((readBuffer at: n) = (n between: 10 and: 10 + 100 - 1)
- ((readBuffer at: n) = (n between: 10 and: 10 + 100)
  ifTrue: [ (writeBuffer at: n) ]
  ifFalse: [ 0 ]) ] ]
  ensure:
  [ file ifNotNil: [ file close ].
  FileDirectory default
  deleteFileNamed: filename
  ifAbsent: [ "ok" ] ]!