diff --git a/collects/tests/mzscheme/number.ss b/collects/tests/mzscheme/number.ss index 476546a18d..99f17c2a0e 100644 --- a/collects/tests/mzscheme/number.ss +++ b/collects/tests/mzscheme/number.ss @@ -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)