basis/linked-sets/linked-sets-tests.factor

   1 USING: kernel linked-sets sets tools.test ;
   2
   3 { V{ 1 2 3 } 3 } [
   4     0 <linked-set> 1 over adjoin
   5                    2 over adjoin
   6                    3 over adjoin
   7     [ members ] [ cardinality ] bi
   8 ] unit-test
   9
  10 { V{ 1 3 } 2 } [
  11     0 <linked-set> 1 over adjoin
  12                    2 over adjoin
  13                    3 over adjoin
  14                    2 over delete
  15     [ members ] [ cardinality ] bi
  16 ] unit-test
  17
  18 { V{ 1 3 4 } 3 } [
  19     0 <linked-set> 1 over adjoin
  20                    2 over adjoin
  21                    3 over adjoin
  22                    2 over delete
  23                    4 over adjoin
  24     [ members ] [ cardinality ] bi
  25 ] unit-test
  26
  27 { V{ } 0 } [
  28     0 <linked-set> 1 over adjoin
  29                    2 over adjoin
  30                    3 over adjoin
  31                    dup clear-set
  32     [ members ] [ cardinality ] bi
  33 ] unit-test
  34
  35 { V{ 1 2 3 } 3 } [
  36     { 1 2 3 } >linked-set
  37     [ members ] [ cardinality ] bi
  38 ] unit-test
  39
  40 { t } [
  41     { 1 2 3 } [ >linked-set ] [ >linked-set ] bi =
  42 ] unit-test