summaryrefslogtreecommitdiff
path: root/test-suite/tests/vectors.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/vectors.test')
-rw-r--r--test-suite/tests/vectors.test11
1 files changed, 10 insertions, 1 deletions
diff --git a/test-suite/tests/vectors.test b/test-suite/tests/vectors.test
index 97b3f187a..371b51840 100644
--- a/test-suite/tests/vectors.test
+++ b/test-suite/tests/vectors.test
@@ -31,9 +31,18 @@
exception:immutable-vector
(vector-set! '#(1 2 3) 0 4)))
+(with-test-prefix "vector-copy"
+
+ (pass-if "defaults"
+ (equal? #(1 2 3) (vector-copy #(1 2 3))))
+ (pass-if "default end"
+ (equal? #(2 3) (vector-copy #(1 2 3) 1)))
+ (pass-if "start end"
+ (equal? #(2) (vector-copy #(1 2 3) 1 2))))
+
(with-test-prefix "vector->list"
- (pass-if "simple vector"
+ (pass-if "plain vector"
(equal? '(1 2 3) (vector->list #(1 2 3))))
(pass-if "string vector 1"