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 << 42.
  23   set << 56.
  24   dumpSet value: set.
  25
  26   set remove: 13.
  27   dumpSet value: set.
  28
  29   set remove: 128 ifAbsent: [ 'no element!' printNl ].
  30   dumpSet value: set.
  31
  32   "and now for something big"
  33   1 to: 32 do: [:i | set << i ].
  34   dumpSet value: set.
  35
  36   1 to: 32 by: 2 do: [:i | set remove: i ].
  37   dumpSet value: set.
  38
  39   (set includes: 5) ifTrue: [ 'FAIL!' printNl ].
  40   (set includes: 6) ifFalse: [ 'FAIL!' printNl ].
  41
  42   set clear.
  43   dumpSet value: set.
  44 }