diff options
Diffstat (limited to 'test-suite/tests/bytevectors.test')
-rw-r--r-- | test-suite/tests/bytevectors.test | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/tests/bytevectors.test b/test-suite/tests/bytevectors.test index 9ae040f1e..732aadb3e 100644 --- a/test-suite/tests/bytevectors.test +++ b/test-suite/tests/bytevectors.test @@ -65,6 +65,20 @@ (bytevector-fill! bv -128) bv)) + ;; This is a Guile-specific extension. + (pass-if-equal "bytevector-fill! range arguments I" + #vu8(0 0 1 1 1) + (let ((bv (make-bytevector 5 0))) + (bytevector-fill! bv 1 2) + bv)) + + ;; This is a Guile-specific extension. + (pass-if-equal "bytevector-fill! range arguments II" + #vu8(0 0 1 1 0) + (let ((bv (make-bytevector 5 0))) + (bytevector-fill! bv 1 2 4) + 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)))) |