X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/8cf2a7ba7432d68b9a055d29f18117be70375af9..a5b5cb422e66f77cac34ded42631db6a067323cc:/test-suite/tests/bytevectors.test

diff --git a/test-suite/tests/bytevectors.test b/test-suite/tests/bytevectors.test
index 5b5adb367..4cc5b67e0 100644
--- a/test-suite/tests/bytevectors.test
+++ b/test-suite/tests/bytevectors.test
@@ -172,10 +172,6 @@
     (let ((b (make-bytevector 0)))
       (null? (bytevector->uint-list b (endianness big) 2))))
 
-  (pass-if "bytevector->sint-list [length < word size]"
-    (let ((b (make-bytevector 1)))
-      (null? (bytevector->sint-list b (endianness big) 2))))
-
   (pass-if-exception "bytevector->sint-list [out-of-range]"
     exception:out-of-range
     (bytevector->sint-list (make-bytevector 6) (endianness little) -1))
@@ -184,10 +180,9 @@
     exception:out-of-range
     (bytevector->uint-list (make-bytevector 6) (endianness little) 0))
 
-  (pass-if "bytevector->sint-list [off-by-one]"
-    (equal? (bytevector->sint-list (make-bytevector 31 #xff)
-                                   (endianness little) 8)
-            '(-1 -1 -1)))
+  (pass-if-exception "bytevector->uint-list [word size doesn't divide length]"
+    exception:wrong-type-arg
+    (bytevector->uint-list (make-bytevector 6) (endianness little) 4))
 
   (pass-if "{sint,uint}-list->bytevector"
     (let ((b1 (sint-list->bytevector '(513 -253 513 513)
@@ -694,15 +689,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))))
 
 
 (with-test-prefix "srfi-4 homogeneous numeric vectors as bytevectors"