I broke random-bytevector for large inputs.

diff --git a/tests/runtime/test-random.scm b/tests/runtime/test-random.scm
index bd12ab2b51238011c7170343fd8c7a68a9d11a09..19dedf16cba25e8138f6584e7b70dfe4bbf1d644 100644 (file)
--- a/tests/runtime/test-random.scm
+++ b/tests/runtime/test-random.scm
@@ -57,6 +57,12 @@ USA.
       (random-source-randomize! s0)
       (assert-!= ((random-source-make-integers s0) (expt 2 32))
                 ((random-source-make-integers s1) (expt 2 32))))))
+
+(define-test 'random-bytevector-large
+  (lambda ()
+    (assert-error
+     (lambda ()
+       (assert-= (bytevector-length (random-bytevector 1088)) 1088)))))
 \f
 (define (define-random-test name procedure)
   (define-test name