summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-4.test
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2011-03-01 12:46:38 -0500
committerMark H Weaver <mhw@netris.org>2011-03-08 17:52:52 -0500
commitae255d65c39de0532df1a2b1da7a14d94e5e3bc6 (patch)
tree31136d1b3a7e7b1addc9f67ecdd1960461ace11b /test-suite/tests/srfi-4.test
parent0176bbb71705434f3fbbfe67cd00a7ae3d7cf079 (diff)
downloadguile-ae255d65c39de0532df1a2b1da7a14d94e5e3bc6.tar.gz
Fix bytevectors VALIDATE_REAL to test for reals, not rationals
Reported and fixed by Daniel Llorens <dll@bluewin.ch>. * libguile/bytevectors.c (VALIDATE_REAL): Test for reals, not rationals. * test-suite/tests/srfi-4.test (f32 vectors, f64 vectors): Add tests.
Diffstat (limited to 'test-suite/tests/srfi-4.test')
-rw-r--r--test-suite/tests/srfi-4.test10
1 files changed, 8 insertions, 2 deletions
diff --git a/test-suite/tests/srfi-4.test b/test-suite/tests/srfi-4.test
index d7e5b1adf..0cdfb6699 100644
--- a/test-suite/tests/srfi-4.test
+++ b/test-suite/tests/srfi-4.test
@@ -352,7 +352,10 @@
(pass-if "make-f32vector"
(equal? (list->f32vector '(7 7 7 7))
- (make-f32vector 4 7))))
+ (make-f32vector 4 7)))
+
+ (pass-if "+inf.0, -inf.0, +nan.0 in f32vector"
+ (f32vector? #f32(+inf.0 -inf.0 +nan.0))))
(with-test-prefix "f64 vectors"
@@ -389,4 +392,7 @@
(pass-if "make-f64vector"
(equal? (list->f64vector '(7 7 7 7))
- (make-f64vector 4 7))))
+ (make-f64vector 4 7)))
+
+ (pass-if "+inf.0, -inf.0, +nan.0 in f64vector"
+ (f64vector? #f64(+inf.0 -inf.0 +nan.0))))