factor/library/test/random.factor

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
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
random number generation and other goodies 2004-08-04 18:25:29 -04:00			`: check-random-int ( min max -- )`
unit tests mostly pass with new compiler 2005-05-09 23:27:46 -04:00			`2dup random-int -rot between?`
			`[ "Assertion failed" throw ] unless ;`
First import of Factor 0.60 2004-07-16 02:26:21 -04:00
random number generation and other goodies 2004-08-04 18:25:29 -04:00			`[ ] [ 100 [ -12 674 check-random-int ] times ] unit-test`