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