diff options
| author | Mistivia <i@mistivia.com> | 2025-07-15 14:36:26 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2025-07-16 16:53:44 +0800 |
| commit | c90c10293399c17744237735f80edaad24e009fc (patch) | |
| tree | b2155290fdcd5211c0142e1ed1cc558d0eac6dd3 /tests/vector.lisp | |
| parent | 4fdde0172948dfd875f58779b91cfa8e517acedf (diff) | |
add vector tests
Diffstat (limited to 'tests/vector.lisp')
| -rw-r--r-- | tests/vector.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/vector.lisp b/tests/vector.lisp index 9146168..d4f7231 100644 --- a/tests/vector.lisp +++ b/tests/vector.lisp @@ -18,3 +18,15 @@ (assert (equal? (vector-ref v 1) 99)) (assert (equal? (vector-ref v 2) "123")) (assert (equal? (vector-ref v 3) 1.2)) + +(vector-remove v 2) + +(assert (equal? (vector-ref v 2) 1.2)) +(assert (equal? (vector-ref v 1) 99)) + +(defvar x 2) +(vector-append v x) + +(vector-set v 3 3) +(assert (= x 2)) +(assert (= 3 (vector-ref v 3))) |