basis/random/random-tests.factor

   1 USING: random sequences tools.test kernel ;
   2 IN: random.tests
   3
   4 [ 4 ] [ 4 random-bytes length ] unit-test
   5 [ 7 ] [ 7 random-bytes length ] unit-test
   6
   7 [ 4 ] [ [ 4 random-bytes length ] with-secure-random ] unit-test
   8 [ 7 ] [ [ 7 random-bytes length ] with-secure-random ] unit-test
   9
  10 [ 2 ] [ V{ 10 20 30 } [ delete-random drop ] keep length ] unit-test
  11 [ V{ } [ delete-random drop ] keep length ] must-fail