diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-06-05 21:37:59 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-06-05 21:37:59 +0000 |
commit | fcae94c51ea822346f1c785ec20d4142a747f4e5 (patch) | |
tree | c4a6fc71db82f4108ed30b379140c1dc7490caf9 | |
parent | 4d54ee3597ee73d142c5b79e3dfa381f5181bdd3 (diff) | |
download | guile-fcae94c51ea822346f1c785ec20d4142a747f4e5.tar.gz |
(array-in-bounds?): Add a test failing in the current code.
-rw-r--r-- | test-suite/tests/unif.test | 9 |
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 ;;; |