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