From c6eaad9757e55bd9ee32464f35e86958cf7c8272 Mon Sep 17 00:00:00 2001 From: Daniel Llorens Date: Thu, 2 May 2013 11:43:31 +0200 Subject: [PATCH] Add tests for more kinds of typed arrays. * test-suite/tests/arrays.test: Add more type array tests. --- test-suite/tests/arrays.test | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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