summaryrefslogtreecommitdiff
path: root/test-suite/tests/arrays.test
diff options
context:
space:
mode:
authorDaniel Llorens <daniel.llorens@bluewin.ch>2013-05-02 11:43:31 +0200
committerAndy Wingo <wingo@pobox.com>2014-02-10 21:58:28 +0100
commitc6eaad9757e55bd9ee32464f35e86958cf7c8272 (patch)
treef778a9cd88f55c23c1fed2caa2f37c29a9e7e73f /test-suite/tests/arrays.test
parentb98e2f47aa233609f90671315f854310e5e46cb8 (diff)
downloadguile-c6eaad9757e55bd9ee32464f35e86958cf7c8272.tar.gz
Add tests for more kinds of typed arrays.
* test-suite/tests/arrays.test: Add more type array tests.
Diffstat (limited to 'test-suite/tests/arrays.test')
-rw-r--r--test-suite/tests/arrays.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index 4ef836084..c02915639 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -751,7 +751,15 @@
(with-input-from-string "'#1:-3(#t #t)" read))
(pass-if "bitvector is self-evaluating"
- (equal? (compile (bitvector)) (bitvector))))
+ (equal? (compile (bitvector)) (bitvector)))
+
+ ; this failed in 2.0.9.
+ (pass-if "typed arrays that are not uniform arrays"
+ (let ((a #2b((#t #f) (#f #t)))
+ (b (make-typed-array 'b #f 2 2)))
+ (array-set! b #t 0 0)
+ (array-set! b #t 1 1)
+ (array-equal? a b))))
;;;
;;; equal? with vector and one-dimensional array