summaryrefslogtreecommitdiff
path: root/test-suite/tests/arrays.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/arrays.test')
-rw-r--r--test-suite/tests/arrays.test16
1 files changed, 8 insertions, 8 deletions
diff --git a/test-suite/tests/arrays.test b/test-suite/tests/arrays.test
index dfcd6f8f1..c6027c2ec 100644
--- a/test-suite/tests/arrays.test
+++ b/test-suite/tests/arrays.test
@@ -363,39 +363,39 @@
;;;
-;;; array-set-from!
+;;; array-amend!
;;;
-(with-test-prefix/c&e "array-set-from!"
+(with-test-prefix/c&e "array-amend!"
(pass-if "vector I"
(let ((v (vector 1 2 3)))
- (and (eq? v (array-set-from! v 'x 1))
+ (and (eq? v (array-amend! v 'x 1))
(array-equal? v #(1 x 3)))))
(pass-if "vector II"
(let ((v (vector 1 2 3)))
- (and (eq? v (array-set-from! (array-from v) #(a b c)))
+ (and (eq? v (array-amend! (array-from v) #(a b c)))
(array-equal? v #(a b c)))))
(pass-if "array I"
(let ((a (list->array 2 '((1 2 3) (4 5 6)))))
- (and (eq? a (array-set-from! a 'x 1 1))
+ (and (eq? a (array-amend! a 'x 1 1))
(array-equal? a #2((1 2 3) (4 x 6))))))
(pass-if "array II"
(let ((a (list->array 2 '((1 2 3) (4 5 6)))))
- (and (eq? a (array-set-from! a #(a b c) 1))
+ (and (eq? a (array-amend! a #(a b c) 1))
(array-equal? a #2((1 2 3) (a b c))))))
(pass-if "array III"
(let ((a (list->array 2 '((1 2 3) (4 5 6)))))
- (and (eq? a (array-set-from! a #2((a b c) (x y z))))
+ (and (eq? a (array-amend! a #2((a b c) (x y z))))
(array-equal? a #2((a b c) (x y z))))))
(pass-if "rank 0 array"
(let ((a (make-array 77)))
- (and (eq? a (array-set-from! a 99))
+ (and (eq? a (array-amend! a 99))
(array-equal? a #0(99))))))