From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 8 Nov 2018 02:11:54 +0000 (+0000)
Subject: I broke random-bytevector for large inputs.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~116^2~18
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f6582867b4b55737b6a2d3dc3be6e47fecb8cb28;p=mit-scheme.git

I broke random-bytevector for large inputs.
---

diff --git a/tests/runtime/test-random.scm b/tests/runtime/test-random.scm
index bd12ab2b5..19dedf16c 100644
--- 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)))))
 
 (define (define-random-test name procedure)
   (define-test name