diff options
-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 ;;; |