Move scheme compiler into a separate directory.

1 files changed, 33 insertions, 0 deletions

diff --git a/csc/vec-test.csc b/csc/vec-test.csc
new file mode 100644
index 0000000..8a19b3e
--- /dev/null
+++ b/csc/vec-test.csc
@@ -0,0 +1,33 @@
+(import (scheme base)
+        (only (csc testing)
+          assert-equal
+          test)
+        (csc vec))
+
+
+(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)))