From f6582867b4b55737b6a2d3dc3be6e47fecb8cb28 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 8 Nov 2018 02:11:54 +0000 Subject: [PATCH] I broke random-bytevector for large inputs. --- tests/runtime/test-random.scm | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 2.25.1