The Trunk: CollectionsTests-ar.137.mcz

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ar.137.mcz

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

Name: CollectionsTests-ar.137
Author: ar
Time: 1 February 2010, 9:44:54.528 pm
UUID: 22c99a94-361b-f54f-83f8-4fcf0d126d36
Ancestors: CollectionsTests-ar.136

Fixes a typo in SetWithNilTest.

=============== Diff against CollectionsTests-ar.136 ===============

Item was changed:
  ----- Method: SetWithNilTest>>runSetWithNilTestOf: (in category 'tests') -----
  runSetWithNilTestOf: newSet
  "Run the common tests for the given set class"
  self shouldnt:[newSet value add: nil] raise: Error.
  self shouldnt:[newSet value addAll: #(nil nil nil)] raise: Error.
 
  self assert: (newSet value add: nil; yourself) size = 1.
  self assert: (newSet value addAll: #(nil nil nil); yourself) size = 1.
 
  self assert: ((newSet value add: nil; yourself) includes: nil).
  self assert: ((newSet value addAll: #(nil nil nil); yourself) includes: nil).
 
  self assert: (newSet value add: nil; yourself) anyOne = nil.
  self assert: ((newSet value add: nil; yourself) remove: nil) == nil.
  self assert: ((newSet value add: nil; yourself) remove: nil; yourself) isEmpty.
 
  self assert: (newSet value addAll: #(1 nil foo); yourself) size = 3.
  self assert: ((newSet value addAll: #(1 nil foo); yourself) remove: nil; yourself) size = 2.
 
+ self assert: ((newSet value add: nil; yourself) collect:[:x| x]) = (newSet value add: nil; yourself).
- self assert: ((newSet value add: nil; yourself) collect:[:x| x]) = (PluggableSet with: nil).
  self assert: ((newSet value add: nil; yourself) collect:[:x| x] as: Array) = #(nil).
 
  self deny: ((newSet value) includes: nil).
  self deny: ((newSet value add: 3; yourself) includes: nil).
  self deny: ((newSet value add: 3; remove: 3; yourself) includes: nil).
  !