The Trunk: CollectionsTests-ul.348.mcz

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-ul.348.mcz

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

Name: CollectionsTests-ul.348
Author: ul
Time: 19 January 2021, 1:29:30.901142 pm
UUID: 7a478e2d-0752-43f2-ab4a-4f6aa9f3bbe6
Ancestors: CollectionsTests-nice.347

- improved tests for OrderedCollection's #removeFirst: and #removeLast:.

=============== Diff against CollectionsTests-nice.347 ===============

Item was changed:
  ----- Method: OrderedCollectionTest>>testRemoveFirst (in category 'tests - removing') -----
  testRemoveFirst
  "Allows one to remove n element of a collection at the first"
  "self run:#testRemoveFirst"
 
+ | c1 c2 |
- | c1 |
  c1 := #(2 3 4 6) asOrderedCollection.
+ c2 := c1 copy.
+ self assert: Array empty equals: (c1 removeFirst: 0).
+ self assert: c2 equals: c1.
+ self assert: #(2) equals: (c1 removeFirst: 1).
+ self assert: #(3 4 6) asOrderedCollection equals: c1.
+ self assert:#(3 4) equals: (c1 removeFirst: 2).
+ self assert: #(6) asOrderedCollection equals: c1.
- c1 removeFirst: 1.
- self assert: (c1 = #(3 4 6) asOrderedCollection).
- c1 removeFirst: 2.
- self assert: (c1 = #(6) asOrderedCollection).
  self should: [c1 removeFirst: 10] raise: Error.
 
  !

Item was changed:
  ----- Method: OrderedCollectionTest>>testRemoveLast (in category 'tests - removing') -----
  testRemoveLast
  "Allows one to remove n element of a collection at the end"
  "self run:#testRemoveLast"
 
+ | c1 c2 |
- | c1 |
  c1 := #(2 3 4 6) asOrderedCollection.
+ c2 := c1 copy.
+ self assert: Array empty equals: (c1 removeLast: 0).
+ self assert: c2 equals: c1.
+ self assert: #(6) equals: (c1 removeLast: 1).
+ self assert: #(2 3 4) asOrderedCollection equals: c1.
+ self assert: #(3 4) equals: (c1 removeLast: 2).
+ self assert: #(2) asOrderedCollection equals: c1.
+ self should: [c1 removeLast: 10] raise: Error!
- c1 removeLast: 1.
- self assert: (c1 = #(2 3 4) asOrderedCollection).
- c1 removeLast: 2.
- self assert: (c1 = #(2) asOrderedCollection).
- self should: [c1 removeLast: 10] raise: Error.!