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

(array-set!): Exercise bitvector case, which had been seg faulting.

Browse source
This commit is contained in:
Kevin Ryde 2006-02-25 20:44:31 +00:00
parent 6ac0ec9692
commit 12a14d28c4
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -325,6 +325,20 @@
(with-test-prefix "array-set!"
(with-test-prefix "bitvector"
;; in Guile 1.8.0 a bug in bitvector_set() caused a segv in array-set!
;; on a bitvector like the following
(let ((a (make-bitvector 1)))
(pass-if "one elem set #t"
(begin
(array-set! a #t 0)
(eq? #t (array-ref a 0))))
(pass-if "one elem set #f"
(begin
(array-set! a #f 0)
(eq? #f (array-ref a 0))))))
(with-test-prefix "byte"
(let ((a (make-s8vector 1)))