[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] GNU Guile branch, wip-rtl-halloween, updated. v2.1.0-329
From: |
Andy Wingo |
Subject: |
[Guile-commits] GNU Guile branch, wip-rtl-halloween, updated. v2.1.0-329-g8f4fbba |
Date: |
Sun, 03 Nov 2013 21:00:26 +0000 |
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 <address@hidden>
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Guile-commits] GNU Guile branch, wip-rtl-halloween, updated. v2.1.0-329-g8f4fbba,
Andy Wingo <=