extra/math/bitfields/lib/lib-tests.factor

   1 USING: math.bitfields.lib tools.test ;
   2 IN: math.bitfields.lib.test
   3
   4 [ 0 ] [ 1 0 0 bitroll ] unit-test
   5 [ 1 ] [ 1 0 1 bitroll ] unit-test
   6 [ 1 ] [ 1 1 1 bitroll ] unit-test
   7 [ 1 ] [ 1 0 2 bitroll ] unit-test
   8 [ 1 ] [ 1 0 1 bitroll ] unit-test
   9 [ 1 ] [ 1 20 2 bitroll ] unit-test
  10 [ 1 ] [ 1 8 8 bitroll ] unit-test
  11 [ 1 ] [ 1 -8 8 bitroll ] unit-test
  12 [ 1 ] [ 1 -32 8 bitroll ] unit-test
  13 [ 128 ] [ 1 -1 8 bitroll ] unit-test
  14 [ 8 ] [ 1 3 32 bitroll ] unit-test