[Guile-commits] GNU Guile branch, wip-rtl-halloween, updated. v2.1.0-329-g8f4fbba

[Andy Wingo]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=8f4fbba55208ebca298e9b8e9da2045df3e8a88d

The branch, wip-rtl-halloween has been updated
       via  8f4fbba55208ebca298e9b8e9da2045df3e8a88d (commit)
      from  d65514a2de2ef922d3613f0e35dea27a88313392 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 8f4fbba55208ebca298e9b8e9da2045df3e8a88d
Author: Andy Wingo <wi...@pobox.com>
Date:   Sun Nov 3 22:00:18 2013 +0100

    Fix test case for uniform-array->bytevector on bitvectors
    
    * test-suite/tests/bytevectors.test ("uniform-array->bytevector"):
      Bitvectors are accessed in 32-bit chunks.

-----------------------------------------------------------------------

Summary of changes:
 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 28ccbf5..de20721 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)


hooks/post-receive
-- 
GNU Guile