basis/bit-vectors/bit-vectors-tests.factor

   1 IN: bit-vectors.tests\r
   2 USING: tools.test bit-vectors vectors sequences kernel math ;\r
   3 \r
   4 [ 0 ] [ 123 <bit-vector> length ] unit-test\r
   5 \r
   6 : do-it\r
   7     1234 swap [ >r even? r> push ] curry each ;\r
   8 \r
   9 [ t ] [\r
  10     3 <bit-vector> dup do-it\r
  11     3 <vector> dup do-it sequence=\r
  12 ] unit-test\r
  13 \r
  14 [ t ] [ ?V{ } bit-vector? ] unit-test\r