mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

(array-in-bounds?): Add a test failing in the current code.

Browse source
This commit is contained in:
Kevin Ryde 2005-06-05 21:37:59 +00:00
parent 4d54ee3597
commit fcae94c51e
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test-suite/tests/unif.test
View file

@ -258,6 +258,15 @@
(pass-if "-123" (array-fill! a -123) #t)
(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
;;;