(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)))