summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/unif.test9
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/tests/unif.test b/test-suite/tests/unif.test
index bf1d507ff..062a34e91 100644
--- a/test-suite/tests/unif.test
+++ b/test-suite/tests/unif.test
@@ -259,6 +259,15 @@
(pass-if "5/8" (array-fill! a 5/8) #t))))
;;;
+;;; array-in-bounds?
+;;;
+
+(with-test-prefix "array-in-bounds?"
+
+ (pass-if (let ((a (make-array #f '(425 425))))
+ (eq? #f (array-in-bounds? a 0)))))
+
+;;;
;;; array-prototype
;;;