extra/crypto/test/common.factor

   1 USING: kernel math test namespaces crypto ;
   2
   3 [ 0 ] [ 1 0 0 bitroll ] unit-test
   4 [ 1 ] [ 1 0 1 bitroll ] unit-test
   5 [ 1 ] [ 1 1 1 bitroll ] unit-test
   6 [ 1 ] [ 1 0 2 bitroll ] unit-test
   7 [ 1 ] [ 1 0 1 bitroll ] unit-test
   8 [ 1 ] [ 1 20 2 bitroll ] unit-test
   9 [ 1 ] [ 1 8 8 bitroll ] unit-test
  10 [ 1 ] [ 1 -8 8 bitroll ] unit-test
  11 [ 1 ] [ 1 -32 8 bitroll ] unit-test
  12 [ 128 ] [ 1 -1 8 bitroll ] unit-test
  13 [ 8 ] [ 1 3 32 bitroll ] unit-test
  14
  15