summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests')
-rw-r--r--test-suite/tests/arrays.test12
1 files changed, 11 insertions, 1 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index ce0b4a1b2..9ea123b73 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -350,7 +350,17 @@
(pass-if "broadcast vector -> empty"
(let* ((a (make-array 0 4))
(b (make-shared-array a (lambda (i j k) (list k)) 0 1 4)))
- (if #f #f))))
+ (if #f #f)))
+
+ (pass-if "broadcast 2-rank I"
+ (let* ((a #2((1 2 3) (4 5 6)))
+ (b (make-shared-array a (lambda (i j) (list 0 j)) 2 3)))
+ (not (array-contents b))))
+
+ (pass-if "broadcast 2-rank I"
+ (let* ((a #2((1 2 3) (4 5 6)))
+ (b (make-shared-array a (lambda (i j) (list i 0)) 2 3)))
+ (not (array-contents b)))))
;;;
;;; shared-array-root