The Trunk: CollectionsTests-nice.125.mcz

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

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

Name: CollectionsTests-nice.125
Author: nice
Time: 22 December 2009, 7:44:05 am
UUID: e8206d49-62d5-c141-8852-cc39d4e011ab
Ancestors: CollectionsTests-nice.124

merge two tests from pharo

=============== Diff against CollectionsTests-nice.124 ===============

Item was changed:
+ ----- Method: OrderedCollectionTest>>testAddAfterIndex (in category 'testing-public methods') -----
- ----- Method: OrderedCollectionTest>>testAddAfterIndex (in category 'testsAdding') -----
  testAddAfterIndex
  "self run: #testAddAfterIndex"
  | l |
  l := #(1 2 3 4) asOrderedCollection.
  l add: 77 afterIndex: 0.
  self assert: (l =  #(77 1 2 3 4) asOrderedCollection).
  l add: 88 afterIndex: 2.
  self assert: (l =  #(77 1 88 2 3 4) asOrderedCollection).
  l add: 99 afterIndex: l size.
  self assert: (l =  #(77 1 88 2 3 4 99) asOrderedCollection).
  self should:[l add: 666 afterIndex: -1] raise: Error.
  self should:[l add: 666 afterIndex: l size+1] raise: Error.
+
+ "Now make room by removing first two and last two elements,
+ and see if the illegal bounds test still fails"
+ (l first: 2) , (l last: 2) reverse do: [:e | l remove: e].
+ self should: [l add: 666 afterIndex: -1] raise: Error.
+ self should: [l add: 666 afterIndex: l size+1] raise: Error.!
- !

Item was changed:
+ ----- Method: OrderedCollectionTest>>testAddBeforeIndex (in category 'testing-public methods') -----
- ----- Method: OrderedCollectionTest>>testAddBeforeIndex (in category 'testsAdding') -----
  testAddBeforeIndex
  "self run: #testAddBeforeIndex"
  | l |
  l := #(1 2 3 4) asOrderedCollection.
  l add: 77 beforeIndex: 1.
  self assert: (l =  #(77 1 2 3 4) asOrderedCollection).
  l add: 88 beforeIndex: 3.
  self assert: (l =  #(77 1 88 2 3 4) asOrderedCollection).
  l add: 99 beforeIndex: l size+1.
  self assert: (l =  #(77 1 88 2 3 4 99) asOrderedCollection).
  self should:[l add: 666 beforeIndex: 0] raise: Error.
  self should:[l add: 666 beforeIndex: l size+2] raise: Error.
+
+ "Now make room by removing first two and last two elements,
+ and see if the illegal bounds test still fails"
+ (l first: 2) , (l last: 2) reverse do: [:e | l remove: e].
+ self should:[l add: 666 beforeIndex: 0] raise: Error.
+ self should:[l add: 666 beforeIndex: l size+2] raise: Error.
 
  !