mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

Fix test case for uniform-array->bytevector on bitvectors

Browse source 
* test-suite/tests/bytevectors.test ("uniform-array->bytevector"):
  Bitvectors are accessed in 32-bit chunks.
This commit is contained in:
Andy Wingo 2013-11-03 22:00:18 +01:00
parent d65514a2de
commit 8f4fbba552
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -671,15 +671,23 @@
(pass-if "bitvector < 8" (pass-if "bitvector < 8"
(let ((bv (uniform-array->bytevector (make-bitvector 4 #t)))) (let ((bv (uniform-array->bytevector (make-bitvector 4 #t))))
(= (bytevector-length bv) 1))) (= (bytevector-length bv) 4)))
(pass-if "bitvector == 8" (pass-if "bitvector == 8"
(let ((bv (uniform-array->bytevector (make-bitvector 8 #t)))) (let ((bv (uniform-array->bytevector (make-bitvector 8 #t))))
(= (bytevector-length bv) 1))) (= (bytevector-length bv) 4)))
(pass-if "bitvector > 8" (pass-if "bitvector > 8"
(let ((bv (uniform-array->bytevector (make-bitvector 9 #t)))) (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: ;;; Local Variables:
;;; eval: (put 'with-test-prefix/c&e 'scheme-indent-function 1) ;;; eval: (put 'with-test-prefix/c&e 'scheme-indent-function 1)