From 7f9ca7c3d71bfa1d0d908e6165cfc1d2851972d3 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 6 Aug 2004 00:17:12 +0000 Subject: [PATCH] (array-set!): Exercise byte array range checks. --- test-suite/tests/unif.test | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test index 3915fe232..946cbba07 100644 --- a/test-suite/tests/unif.test +++ b/test-suite/tests/unif.test @@ -354,6 +354,28 @@ (with-test-prefix "array-set!" + (with-test-prefix "byte" + + (let ((a (make-uniform-array #\nul 1))) + + (pass-if "-128" + (begin (array-set! a -128 0) #t)) + (pass-if "0" + (begin (array-set! a 0 0) #t)) + (pass-if "127" + (begin (array-set! a 127 0) #t)) + (pass-if-exception "-129" exception:out-of-range + (begin (array-set! a -129 0) #t)) + (pass-if-exception "128" exception:out-of-range + (begin (array-set! a 128 0) #t)) + + (pass-if "#\\nul" + (begin (array-set! a #\nul 0) #t)) + (pass-if "#\\del" + (begin (array-set! a #\del 0) #t)) + (pass-if "char 255" + (begin (array-set! a (integer->char 255) 0) #t)))) + (with-test-prefix "short" (let ((a (make-uniform-array 's 1)))