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

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