mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 04:50:28 +02:00
Code Activity

More:

Browse source 
(array-map!): Further tests.
This commit is contained in:
Kevin Ryde 2005-04-25 00:14:37 +00:00
parent 5ecde1552a
commit 9147cd32d0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/tests/ramap.test
View file

@ -91,8 +91,9 @@
(equal? a (make-array 0 5))))
;; in Guile 1.6.4 and earlier this resulted in a segv
(pass-if-exception "noop" exception:wrong-num-args
(array-map! (make-array #f 5) noop)))
(pass-if "noop"
(array-map! (make-array #f 5) noop)
#t))
(with-test-prefix "one source"