summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-06-05 21:37:59 +0000
committerKevin Ryde <user42@zip.com.au>2005-06-05 21:37:59 +0000
commitfcae94c51ea822346f1c785ec20d4142a747f4e5 (patch)
treec4a6fc71db82f4108ed30b379140c1dc7490caf9
parent4d54ee3597ee73d142c5b79e3dfa381f5181bdd3 (diff)
downloadguile-fcae94c51ea822346f1c785ec20d4142a747f4e5.tar.gz
(array-in-bounds?): Add a test failing in the current code.
-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
;;;