suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix make-bytes test

Browse Source 
svn: r2624
This commit is contained in:
Matthew Flatt 2006-04-06 13:32:28 +00:00
parent 46d95ee19d
commit c6174237ee
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/basic.ss
View File

@ -965,8 +965,9 @@
(err/rt-test (make-bytes 5.0 98)) (err/rt-test (make-bytes 5.0 98))
(err/rt-test (make-bytes 5.2 97)) (err/rt-test (make-bytes 5.2 97))
(err/rt-test (make-bytes -5 98)) (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))
(err/rt-test (make-bytes 50000000000000000000 #\f) exn:fail:out-of-memory?) ;; bignum on 64-bit machines (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 #\*))) (define f (make-bytes 3 (char->integer #\*)))