The Trunk: CollectionsTests-bf.225.mcz

Bert Freudenberg uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-bf.225.mcz

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

Name: CollectionsTests-bf.225
Author: bf
Time: 8 December 2014, 1:33:54.357 am
UUID: f5cc8617-fe9b-48a4-8a4a-6768918a0e36
Ancestors: CollectionsTests-eem.224

Restore timestamps lost in assignment conversion.

=============== Diff against CollectionsTests-eem.224 ===============

Item was changed:
  ----- Method: AssociationTest>>setUp (in category 'setup') -----
  setUp
 
  a := 1 -> 'one'.
  b := 1 -> 'een'.!

Item was changed:
  ----- Method: ReadStreamTest>>testUpToAll (in category 'tests - accessing') -----
  testUpToAll
 
  self assert: (self streamOn: 'abcdefgh' upToAll: 'cd') = 'ab'.
  self assert: (self streamOn: 'abcdefgh' upToAll: 'cd' upToAll: 'gh') = 'ef'.
 
  self assert: (self streamOn: '' upToAll: '') = ''.
 
  self assert: (self streamOn: 'a' upToAll: '') = ''.
  self assert: (self streamOn: 'a' upToAll: 'a') = ''.
  self assert: (self streamOn: 'a' upToAll: 'b') = 'a'.
 
  self assert: (self streamOn: 'ab' upToAll: '') = ''.
  self assert: (self streamOn: 'ab' upToAll: 'a') = ''.
  self assert: (self streamOn: 'ab' upToAll: 'b') = 'a'.
  self assert: (self streamOn: 'ab' upToAll: 'c') = 'ab'.
  self assert: (self streamOn: 'ab' upToAll: 'ab') = ''.
 
  self assert: (self streamOn: 'abc' upToAll: '') = ''.
  self assert: (self streamOn: 'abc' upToAll: 'a') = ''.
  self assert: (self streamOn: 'abc' upToAll: 'b') = 'a'.
  self assert: (self streamOn: 'abc' upToAll: 'c') = 'ab'.
  self assert: (self streamOn: 'abc' upToAll: 'd') = 'abc'.
  self assert: (self streamOn: 'abc' upToAll: 'ab') = ''.
  self assert: (self streamOn: 'abc' upToAll: 'bc') = 'a'.
  self assert: (self streamOn: 'abc' upToAll: 'cd') = 'abc'.
  !

Item was changed:
  ----- Method: TextFontChangeTest>>testHash (in category 'tests') -----
  testHash
  "test that different instances of the same TextFontChange hash to the
  same value"
  | hashes hash |
  hashes := OrderedCollection new.
  1
  to: 100
  do: [:i | hashes add: TextFontChange defaultFontChange hash].
  hash := hashes at: 1.
  2
  to: 100
  do: [:i | self assert: (hashes at: i)
  = hash]!