From c6174237ee45f1efbe4edfbf714fa1c132a7c6da Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 6 Apr 2006 13:32:28 +0000 Subject: [PATCH] fix make-bytes test svn: r2624 --- collects/tests/mzscheme/basic.ss | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/basic.ss b/collects/tests/mzscheme/basic.ss index 75cb36316c..7b3f0745c6 100644 --- a/collects/tests/mzscheme/basic.ss +++ b/collects/tests/mzscheme/basic.ss @@ -965,8 +965,9 @@ (err/rt-test (make-bytes 5.0 98)) (err/rt-test (make-bytes 5.2 97)) (err/rt-test (make-bytes -5 98)) -(err/rt-test (make-bytes 500000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 32-bit machines -(err/rt-test (make-bytes 50000000000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 64-bit machines +(err/rt-test (make-bytes 50000000000000000000 #\f)) +(err/rt-test (make-bytes 500000000000000 45) exn:fail:out-of-memory?) ;; bignum on 32-bit machines +(err/rt-test (make-bytes 50000000000000000000 45) exn:fail:out-of-memory?) ;; bignum on 64-bit machines (define f (make-bytes 3 (char->integer #\*)))