basis/bit-sets/bit-sets-tests.factor

   1 USING: bit-sets tools.test bit-arrays ;
   2 IN: bit-sets.tests
   3
   4 [ ?{ t f t f t f } ] [
   5     ?{ t f f f t f }
   6     ?{ f f t f t f } bit-set-union
   7 ] unit-test
   8
   9 [ ?{ f f f f t f } ] [
  10     ?{ t f f f t f }
  11     ?{ f f t f t f } bit-set-intersect
  12 ] unit-test
  13
  14 [ ?{ t f t f f f } ] [
  15     ?{ t t t f f f }
  16     ?{ f t f f t t } bit-set-diff
  17 ] unit-test