diff options
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/arrays.test | 12 |
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 |