(exception:wrong-num-indices): New, use it for array-set! tests with

wrong number of indices.

diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test
index 1a2b254..a843203 100644 (file)
--- 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)))))
 
 ;;;