1 files changed, 35 insertions, 0 deletions
diff --git a/lib/csc/vec-test.csc b/lib/csc/vec-test.csc
new file mode 100644
index 0000000..761b259
--- /dev/null
+++ b/lib/csc/vec-test.csc
@@ -0,0 +1,35 @@
+(define-library (csc vec-test)
+  (import (scheme base)
+          (only (csc testing)
+            assert-equal
+            test)
+          (csc vec))
+  (begin
+
+
+    (test vec-empty
+      (assert-equal '() (vec->list (vec))))
+
+
+    (test vec-singleton
+      (assert-equal '(1) (vec->list (vec 1))))
+
+
+    (test vec-append-to-empty
+      (assert-equal '(1) (vec->list (vec-append (vec) 1))))
+
+
+    (test vec-append-to-singleton
+      (assert-equal '(1 2) (vec->list (vec-append (vec 1) 2))))
+
+
+    (test vec-append-to-2-elem
+      (assert-equal '(1 2 3) (vec->list (vec-append (vec 1 2) 3))))
+
+
+    (test vec-ref-1
+      (assert-equal 2 (vec-ref (vec 1 2) 1)))
+
+
+    (test vec-ref-singleton
+      (assert-equal 1 (vec-ref (vec 1) 0)))))