basis/math/bitwise/bitwise-tests.factor

   1 USING: accessors math math.bitwise tools.test kernel words ;
   2 IN: math.bitwise.tests
   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
  15
  16 [ 0 ] [ { } bitfield ] unit-test
  17 [ 256 ] [ 1 { 8 } bitfield ] unit-test
  18 [ 268 ] [ 3 1 { 8 2 } bitfield ] unit-test
  19 [ 268 ] [ 1 { 8 { 3 2 } } bitfield ] unit-test
  20 [ 512 ] [ 1 { { 1+ 8 } } bitfield ] unit-test
  21
  22 : a 1 ; inline
  23 : b 2 ; inline
  24
  25 : foo ( -- flags ) { a b } flags ;
  26
  27 [ 3 ] [ foo ] unit-test
  28 [ 3 ] [ { a b } flags ] unit-test
  29 \ foo must-infer
  30
  31 [ 1 ] [ { 1 } flags ] unit-test
  32
  33 [ 8 ] [ 0 3 toggle-bit ] unit-test
  34 [ 0 ] [ 8 3 toggle-bit ] unit-test
  35
  36 [ 4 ] [ BIN: 1010101 bit-count ] unit-test
  37 [ 0 ] [ BIN: 0 bit-count ] unit-test
  38 [ 1 ] [ BIN: 1 bit-count ] unit-test