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