summaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2015-01-22 13:24:30 +0100
committerAndy Wingo <wingo@pobox.com>2015-01-22 13:24:30 +0100
commita5b5cb422e66f77cac34ded42631db6a067323cc (patch)
treef7bd502e20d0d3de3c4bb0fbaf588e1b3f04c42b /test-suite
parenta51111dd255189bd00eb28547491ee4a9bfa9ca1 (diff)
parent8cf2a7ba7432d68b9a055d29f18117be70375af9 (diff)
downloadguile-a5b5cb422e66f77cac34ded42631db6a067323cc.tar.gz
Merge commit '8cf2a7ba7432d68b9a055d29f18117be70375af9'
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/tests/bytevectors.test15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/tests/bytevectors.test b/test-suite/tests/bytevectors.test
index 91367db08..4cc5b67e0 100644
--- a/test-suite/tests/bytevectors.test
+++ b/test-suite/tests/bytevectors.test
@@ -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))))