(array-index-map!): Add a test failing in the current code.

diff --git a/test-suite/tests/ramap.test b/test-suite/tests/ramap.test
index 467d7ab..088a2d3 100644 (file)
--- a/test-suite/tests/ramap.test
+++ b/test-suite/tests/ramap.test
@@ -19,6 +19,18 @@
 (define-module (test-suite test-ramap)
   #:use-module (test-suite lib))
 
+;;;
+;;; array-index-map!
+;;;
+
+(with-test-prefix "array-index-map!"
+
+  (pass-if (let ((nlst '()))
+            (array-index-map! (make-array #f '(1 1))
+                              (lambda (n)
+                                (set! nlst (cons n nlst))))
+            (equal? nlst '(1)))))
+
 ;;;
 ;;; array-map!
 ;;;