basis/random/random-tests.factor

   1 USING: random sequences tools.test kernel math math.functions
   2 sets ;
   3 IN: random.tests
   4
   5 [ 4 ] [ 4 random-bytes length ] unit-test
   6 [ 7 ] [ 7 random-bytes length ] unit-test
   7
   8 [ 4 ] [ [ 4 random-bytes length ] with-secure-random ] unit-test
   9 [ 7 ] [ [ 7 random-bytes length ] with-secure-random ] unit-test
  10
  11 [ 2 ] [ V{ 10 20 30 } [ delete-random drop ] keep length ] unit-test
  12 [ V{ } [ delete-random drop ] keep length ] must-fail
  13
  14 [ t ] [ 10000 [ 0 [ drop 187 random + ] reduce ] keep / 2 * 187 10 ~ ] unit-test
  15 [ t ] [ 10000 [ 0 [ drop 400 random + ] reduce ] keep / 2 * 400 10 ~ ] unit-test
  16
  17 [ t ] [ 1000 [ 400 random ] replicate prune length 256 > ] unit-test
  18
  19 [ f ] [ 0 random ] unit-test