1000     c2 := c reject:[:el | el startsWith:'t'].

  1001     self assert:(c2 size == ((s copyFrom:2) count:[:el | el startsWith:'t' ])).

  1002 

  1003     s := #(1 2 3 4 5 6 7 8).

  1004     c := s from:2.

  1005 

  1006     self assert: ( c size == (s size - 1) ).

  1007     1 to:c size do:[:i |

  1008         self assert: ( (c at:i) == (s at:i+1) ).

  1009     ].

  1010 

  1011     c2 := c collect:[:el |el].

  1012     self assert:(c2 size == c size).

  1013     self assert:(c2 = c).

  1014     self assert:(c2 sameContentsAs:(s copyFrom:2)).

  1015 

  1016     c2 := c select:[:el |true].

  1017     self assert:(c2 size == c size).

  1018     self assert:(c2 = c).

  1019     self assert:(c2 sameContentsAs:(s copyFrom:2)).

  1020 

  1021     c2 := c select:[:el |el even].

  1022     self assert:(c2 size == ((s copyFrom:2) select:#even) size).

  1023     self assert:(c2 sameContentsAs:((s copyFrom:2) select:#even)).

  1024 

  1025     c2 := c reject:[:el |el even].

  1026     self assert:(c2 size == ((s copyFrom:2) reject:#even) size).

  1027     self assert:(c2 sameContentsAs:((s copyFrom:2) reject:#even)).

  1028