factor/library/test/random.factor

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
messing around with ffi, various other fixes 2005-03-28 23:45:13 -05:00			`IN: temporary`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00			`USE: kernel`
			`USE: lists`
fix some overflow issues 2004-08-26 22:21:17 -04:00			`USE: math`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00			`USE: namespaces`
			`USE: random`
			`USE: test`
unit tests mostly pass with new compiler 2005-05-09 23:27:46 -04:00			`USE: errors`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
fix bignum emission, put MT in core 2005-10-08 01:15:14 -04:00			`: check-random-int ( max -- )`
			`dup random-int 0 rot between?`
unit tests mostly pass with new compiler 2005-05-09 23:27:46 -04:00			`[ "Assertion failed" throw ] unless ;`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
fix bignum emission, put MT in core 2005-10-08 01:15:14 -04:00			`[ ] [ 100 [ 674 check-random-int ] times ] unit-test`