mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +02:00
Code Activity

Merge commit '8cf2a7ba74'

Browse source
This commit is contained in:
Andy Wingo 2015-01-22 13:24:30 +01:00
commit a5b5cb422e
10 changed files with 172 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/bytevectors.test
View file

@ -46,6 +46,21 @@
(not (bytevector=? (make-bytevector 20 7)
(make-bytevector 20 0)))))
;; This failed prior to Guile 2.0.12.
;; See <http://bugs.gnu.org/19027>.
(pass-if-equal "bytevector-fill! with fill 255"
#vu8(255 255 255 255)
(let ((bv (make-bytevector 4)))
(bytevector-fill! bv 255)
bv))
;; This is a Guile-specific extension.
(pass-if-equal "bytevector-fill! with fill -128"
#vu8(128 128 128 128)
(let ((bv (make-bytevector 4)))
(bytevector-fill! bv -128)
bv))
(pass-if "bytevector-copy! overlapping"
;; See <http://debbugs.gnu.org/10070>.
(let ((b (u8-list->bytevector '(1 2 3 4 5 6 7 8))))