+ ;; 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))
+