basis/math/bitfields/bitfields-tests.factor

   1 USING: accessors math math.bitfields tools.test kernel words ;
   2 IN: math.bitfields.tests
   3
   4 [ 0 ] [ { } bitfield ] unit-test
   5 [ 256 ] [ 1 { 8 } bitfield ] unit-test
   6 [ 268 ] [ 3 1 { 8 2 } bitfield ] unit-test
   7 [ 268 ] [ 1 { 8 { 3 2 } } bitfield ] unit-test
   8 [ 512 ] [ 1 { { 1+ 8 } } bitfield ] unit-test
   9
  10 : a 1 ; inline
  11 : b 2 ; inline
  12
  13 : foo ( -- flags ) { a b } flags ;
  14
  15 [ 3 ] [ foo ] unit-test
  16 [ 3 ] [ { a b } flags ] unit-test
  17 \ foo must-infer
  18
  19 [ 0 ] [ { } bitfield-quot call ] unit-test
  20
  21 [ 256 ] [ 1 { 8 } bitfield-quot call ] unit-test
  22
  23 [ 268 ] [ 3 1 { 8 2 } bitfield-quot call ] unit-test
  24
  25 [ 268 ] [ 1 { 8 { 3 2 } } bitfield-quot call ] unit-test
  26
  27 [ 512 ] [ 1 { { 1+ 8 } } bitfield-quot call ] unit-test