core/test/random.factor

   1 IN: temporary
   2 USING: errors kernel math namespaces sequences test ;
   3
   4 : check-random-int ( max -- ? )
   5     dup >r random-int 0 r> between? ;
   6
   7 [ t ] [ 100 [ drop 674 check-random-int ] all? ] unit-test
   8
   9 : make-100-random-ints
  10     [ 100 [ 100 random-int , ] times ] { } make ;
  11
  12 [ f ] [ make-100-random-ints make-100-random-ints = ] unit-test