mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Test that typed-array? returns #f with non-array argument

Browse source 
* test-suite/tests/arrays.test: ditto.
This commit is contained in:
Daniel Llorens 2013-04-17 14:33:40 +02:00 • committed by Andy Wingo
parent 19239bbfcb
commit d41d5bf05e
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/arrays.test
View file

@ -188,7 +188,13 @@
(pass-if (eq? #f (typed-array? float #t))) (pass-if (eq? #f (typed-array? float #t)))
(pass-if (eq? #f (typed-array? double #t))) (pass-if (eq? #f (typed-array? double #t)))
(pass-if (eq? #f (typed-array? complex #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? ;;; array-equal?