blob: 8a19b3e1bf114edf731175e19e274c2777494605 (
plain) (
blame)
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)))
|
