diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-17 14:33:40 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-09 12:55:49 +0100 |
commit | d41d5bf05ecea7ac0bb30a501ba4801043991b63 (patch) | |
tree | 387aa9a029c12b378d707b5f323f9d145dee8e66 /test-suite/tests | |
parent | 19239bbfcb89dfaf6ae3c40896645b0dbbc4783a (diff) | |
download | guile-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.test | 8 |
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? |