blob: 91461685f1f4b9d7f05b55069a961d59303d88c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(assert (vector? (make-vector)))
(assert (not (vector? 1)))
(defvar v (make-vector))
(assert (= 0 (vector-length v)))
(assert-error (vector-ref v 0))
(vector-append v 0)
(vector-append v "123")
(vector-append v 1.2)
(assert (= 3 (vector-length v)))
(vector-insert v 1 99)
(assert (equal? (vector-ref v 0) 0))
(assert (equal? (vector-ref v 1) 99))
(assert (equal? (vector-ref v 2) "123"))
(assert (equal? (vector-ref v 3) 1.2))
|
