diff options
author | Daniel Llorens <daniel.llorens@bluewin.ch> | 2013-04-17 14:33:40 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-01-27 21:45:18 +0100 |
commit | 9cbd17fc50d667263cb754de7cb9135c69be9d9d (patch) | |
tree | d04aad803893c4561420ed38d457e85902889e46 | |
parent | ecd6c045272e9dfdd111651521bf2894a0fcfda5 (diff) | |
download | guile-9cbd17fc50d667263cb754de7cb9135c69be9d9d.tar.gz |
Test that typed-array? returns #f with non-array argument
* test-suite/tests/arrays.test: ditto.
-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 e0aa5ca3e..7b7471543 100644 --- a/test-suite/tests/arrays.test +++ b/test-suite/tests/arrays.test @@ -201,7 +201,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? |