From 68986fe0410584c6934c835bb0ee784655f5f8c5 Mon Sep 17 00:00:00 2001 From: Rose Hogenson Date: Tue, 11 Jan 2022 22:01:23 -0800 Subject: Move scheme compiler into a separate directory. --- csc/vec-test.csc | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 csc/vec-test.csc (limited to 'csc/vec-test.csc') 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))) -- cgit v1.3.1