summaryrefslogtreecommitdiff
path: root/test-suite/tests/ramap.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/ramap.test')
-rw-r--r--test-suite/tests/ramap.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/test-suite/tests/ramap.test b/test-suite/tests/ramap.test
index acb0f22d8..037850582 100644
--- a/test-suite/tests/ramap.test
+++ b/test-suite/tests/ramap.test
@@ -316,7 +316,14 @@
(c (make-array 0 2)))
(begin
(array-map! c + (array-col a 1) (array-row a 1))
- (array-equal? c #(3 6))))))
+ (array-equal? c #(3 6)))))
+
+ (pass-if "offset arrays 1"
+ (let ((a #2@1@-3((0 1) (2 3)))
+ (c (make-array 0 '(1 2) '(-3 -2))))
+ (begin
+ (array-map! c + a a)
+ (array-equal? c #2@1@-3((0 2) (4 6)))))))
;; note that array-copy! has the opposite behavior.