summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-04-17 14:33:40 +0200
committerAndy Wingo <wingo@pobox.com>2014-02-09 12:55:49 +0100
commitd41d5bf05ecea7ac0bb30a501ba4801043991b63 (patch)
tree387aa9a029c12b378d707b5f323f9d145dee8e66 /test-suite/tests
parent19239bbfcb89dfaf6ae3c40896645b0dbbc4783a (diff)
downloadguile-d41d5bf05ecea7ac0bb30a501ba4801043991b63.tar.gz
Test that typed-array? returns #f with non-array argument
* test-suite/tests/arrays.test: ditto.
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/arrays.test8
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index 090338fcc..eed50311b 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -188,7 +188,13 @@
(pass-if (eq? #f (typed-array? float #t)))
(pass-if (eq? #f (typed-array? double #t)))
(pass-if (eq? #f (typed-array? complex #t)))
- (pass-if (eq? #t (typed-array? scm #t))))))
+ (pass-if (eq? #t (typed-array? scm #t))))
+
+ (with-test-prefix "typed-array? returns #f"
+ (pass-if (eq? #f (typed-array? '(1 2 3) 'c64)))
+ (pass-if (eq? #f (typed-array? '(1 2 3) #t)))
+ (pass-if (eq? #f (typed-array? 99 'c64)))
+ (pass-if (eq? #f (typed-array? 99 #t))))))
;;;
;;; array-equal?