fix tests of 'random'

svn: r8175
This commit is contained in:
Matthew Flatt 2008-01-01 14:19:39 +00:00
parent 85c8339e39
commit 7508f2a9c7

View File

@ -1982,7 +1982,7 @@
'random-seed-same
(begin (random-seed 23) (list (random 10) (random 20) (random 30))))
(arity-test random-seed 1 1)
(arity-test random 0 1)
(arity-test random 0 2)
(err/rt-test (random-seed "apple"))
(err/rt-test (random-seed 4.5))
(err/rt-test (random-seed -1))
@ -1991,7 +1991,8 @@
(err/rt-test (random "apple"))
(err/rt-test (random 0))
(err/rt-test (random -6))
(err/rt-test (random (expt 2 31)))
(err/rt-test (random 4294967088))
(err/rt-test (random (expt 2 32)))
(err/rt-test (random big-num))
(random-seed 101)