diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-03 22:00:18 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-03 22:00:18 +0100 |
commit | 8f4fbba55208ebca298e9b8e9da2045df3e8a88d (patch) | |
tree | 2f13045ccb85639a03b512330bb5f31d72a91994 | |
parent | d65514a2de2ef922d3613f0e35dea27a88313392 (diff) | |
download | guile-8f4fbba55208ebca298e9b8e9da2045df3e8a88d.tar.gz |
Fix test case for uniform-array->bytevector on bitvectors
* test-suite/tests/bytevectors.test ("uniform-array->bytevector"):
Bitvectors are accessed in 32-bit chunks.
-rw-r--r-- | test-suite/tests/bytevectors.test | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/test-suite/tests/bytevectors.test b/test-suite/tests/bytevectors.test index 28ccbf585..de207218f 100644 --- a/test-suite/tests/bytevectors.test +++ b/test-suite/tests/bytevectors.test @@ -671,15 +671,23 @@ (pass-if "bitvector < 8" (let ((bv (uniform-array->bytevector (make-bitvector 4 #t)))) - (= (bytevector-length bv) 1))) + (= (bytevector-length bv) 4))) (pass-if "bitvector == 8" (let ((bv (uniform-array->bytevector (make-bitvector 8 #t)))) - (= (bytevector-length bv) 1))) + (= (bytevector-length bv) 4))) (pass-if "bitvector > 8" (let ((bv (uniform-array->bytevector (make-bitvector 9 #t)))) - (= (bytevector-length bv) 2)))) + (= (bytevector-length bv) 4))) + + (pass-if "bitvector == 32" + (let ((bv (uniform-array->bytevector (make-bitvector 32 #t)))) + (= (bytevector-length bv) 4))) + + (pass-if "bitvector > 32" + (let ((bv (uniform-array->bytevector (make-bitvector 33 #t)))) + (= (bytevector-length bv) 8)))) ;;; Local Variables: ;;; eval: (put 'with-test-prefix/c&e 'scheme-indent-function 1) |