IN: temporary
USE: kernel
USE: lists
USE: math
USE: namespaces
USE: random
USE: test
USE: errors
: check-random-int ( max -- )
dup random-int 0 rot between?
[ "Assertion failed" throw ] unless ;
[ ] [ 100 [ 674 check-random-int ] times ] unit-test