samples/testSet.st

   1 Requires [ collections ]
   2
   3
   4 {
   5   | set dumpSet |
   6
   7   dumpSet := [:s |
   8     'set:' print.
   9     s do: [:e | ' <' print. e print. '>' print. ].
  10     ';' printNl.
  11   ].
  12
  13   set := Set new.
  14   dumpSet value: set.
  15
  16   set << 10.
  17   set << 13.
  18   set << 42.
  19   set << 56.
  20   dumpSet value: set.
  21
  22   (set at: 42) printNl.
  23
  24   set << 42.
  25   set << 56.
  26   dumpSet value: set.
  27
  28   set remove: 13.
  29   dumpSet value: set.
  30
  31   set remove: 128 ifAbsent: [ 'no element!' printNl ].
  32   dumpSet value: set.
  33
  34   "and now for something big"
  35   1 to: 32 do: [:i | set << i ].
  36   dumpSet value: set.
  37
  38   1 to: 32 by: 2 do: [:i | set remove: i ].
  39   dumpSet value: set.
  40
  41   (set includes: 5) ifTrue: [ 'FAIL!' printNl ].
  42   (set includes: 6) ifFalse: [ 'FAIL!' printNl ].
  43
  44   set removeAll.
  45   dumpSet value: set.
  46 }