From 34ea1617765a9c35978fff800e6567ae4aa81083 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Mon, 10 Jan 2005 01:44:34 +0000 Subject: [PATCH] (exception:wrong-num-indices): New, use it for array-set! tests with wrong number of indices. --- test-suite/tests/unif.test | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test index 1a2b25436..a84320398 100644 --- a/test-suite/tests/unif.test +++ b/test-suite/tests/unif.test @@ -23,6 +23,9 @@ ;;; array? ;;; +(define exception:wrong-num-indices + (cons 'misc-error "^wrong number of indices.*")) + (with-test-prefix "array?" (let ((bool (make-typed-array 'b #t '(5 6))) @@ -385,9 +388,9 @@ (array-set! a 'y 2 7)) (pass-if-exception "end i+1" exception:out-of-range (array-set! a 'y 6 9)) - (pass-if-exception "one index" exception:wrong-num-args + (pass-if-exception "one index" exception:wrong-num-indices (array-set! a 'y 4)) - (pass-if-exception "three indexes" exception:wrong-num-args + (pass-if-exception "three indexes" exception:wrong-num-indices (array-set! a 'y 4 8 0))))) ;;;