From 8f4fbba55208ebca298e9b8e9da2045df3e8a88d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 3 Nov 2013 22:00:18 +0100 Subject: [PATCH] Fix test case for uniform-array->bytevector on bitvectors * test-suite/tests/bytevectors.test ("uniform-array->bytevector"): Bitvectors are accessed in 32-bit chunks. --- test-suite/tests/bytevectors.test | 14 +++++++++++--- 1 file 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)