csc/vec-test.csc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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)))