blob: f7b182c185f31e95acd3de4348dd528b82948c0c (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
(load "../common")
(let ((v0 (vec))
(v3 (vec 1 2 3)))
(mtest
v0 #()
v3 #(1 2 3)
(fill-vec v0 nil) #()
(fill-vec v0 nil -1 -1) :error
(fill-vec v0 nil 1 1) :error
(fill-vec v3 nil 0 0) #(1 2 3)
(fill-vec v3 nil 1 1) #(1 2 3)
(fill-vec v3 nil 2 2) #(1 2 3)
(fill-vec v3 nil 3 3) #(1 2 3)
(fill-vec v3 nil -3 -3) #(1 2 3)
(fill-vec v3 nil 4 0) :error
(fill-vec v3 nil 4 4) :error
(fill-vec v3 nil 0 4) :error
(fill-vec v3 nil -1 0) #(1 2 3)
(fill-vec v3 nil 1 0) #(1 2 3)
(fill-vec v3 nil 2 1) #(1 2 3)
(fill-vec v3 nil 3 2) #(1 2 3)
(fill-vec v3 nil -4 -3) :error
(fill-vec v3 nil -3 -4) :error
(fill-vec v3 nil) #(nil nil nil)
(fill-vec v3 1 0 1) #(1 nil nil)
(fill-vec v3 2 1 2) #(1 2 nil)
(fill-vec v3 3 2 3) #(1 2 3)
(fill-vec v3 0 1) #(1 0 0)
(fill-vec v3 2 -1) #(1 0 2)
(fill-vec v3 3 -3) #(3 3 3))
(fill-vec v3 0 -2 -1) #(3 0 3))
(mtest
(nested-vec) nil
(nested-vec-of 0 4) #(0 0 0 0)
(nested-vec-of 0 4 3) #(#(0 0 0)
#(0 0 0)
#(0 0 0)
#(0 0 0))
(nested-vec-of 'a 4 3 2) #(#(#(a a) #(a a) #(a a))
#(#(a a) #(a a) #(a a))
#(#(a a) #(a a) #(a a))
#(#(a a) #(a a) #(a a)))
(nested-vec-of 'a 1 1 1) #(#(#(a)))
(nested-vec-of 'a 1 1 0) #(#(#()))
(nested-vec-of 'a 1 0 1) #(#())
(nested-vec-of 'a 1 0) #(#())
(nested-vec-of 'a 0 1) #()
(nested-vec-of 'a 0) #()
(nested-vec-of 'a 4 0 1) #(#() #() #() #())
(nested-vec-of 'a 4 0) #(#() #() #() #()))
|
