fix tests of 'random'
svn: r8175
This commit is contained in:
parent
85c8339e39
commit
7508f2a9c7
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user