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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
|
test_check_uaselection <- function()
{
check_uaselection <- HDF5Array:::check_uaselection
## specifying 'starts' only (no 'counts')
checkIdentical(6:4, check_uaselection(6:4))
checkIdentical(c(6L, 1L, 2L),
check_uaselection(6:4, starts=list(NULL, 5, 3:4)))
checkIdentical(integer(0), check_uaselection(integer(0)))
checkIdentical(integer(0), check_uaselection(integer(0), starts=NULL))
checkIdentical(integer(0), check_uaselection(integer(0), starts=list()))
checkIdentical(15L, check_uaselection(15))
checkIdentical(15L, check_uaselection(15, starts=NULL))
checkIdentical(15L, check_uaselection(15, starts=list(NULL)))
checkIdentical(5L, check_uaselection(15, starts=list(c(6, 5, 2, 2, 10))))
checkIdentical(30L, check_uaselection(15, starts=list(c(15:1, 1:15))))
checkIdentical(5L, check_uaselection(3e9, starts=list(c(6, 5, 2, 2, 10))))
checkIdentical(1L, check_uaselection(1e18, starts=list(1e18)))
checkIdentical(3e9, check_uaselection(3e9))
checkException(check_uaselection(9, starts=list()))
checkException(check_uaselection(9, starts=list(0)))
checkException(check_uaselection(9, starts=list(NA)))
checkException(check_uaselection(9, starts=list(NA_integer_)))
checkException(check_uaselection(9, starts=list(NA_real_)))
checkException(check_uaselection(9, starts=list(NaN)))
checkException(check_uaselection(9, starts=list(Inf)))
checkException(check_uaselection(9, starts=list(-Inf)))
checkException(check_uaselection(9, starts=list(1e19)))
checkException(check_uaselection(9, starts=list(10)))
## specifying 'starts' and 'counts'
checkIdentical(integer(0), check_uaselection(integer(0), list(), list()))
checkIdentical(15L, check_uaselection(15, starts=list(NULL),
counts=list(NULL)))
checkIdentical(5L, check_uaselection(15, starts=list(c(6, 5, 2, 2, 10)),
counts=list(NULL)))
checkIdentical(5L, check_uaselection(15, starts=list(c(14, 5, 8)),
counts=list(c( 2, 0, 3))))
checkException(check_uaselection(-1, starts=list(NULL),
counts=list()))
checkException(check_uaselection(-1, starts=list(),
counts=list(NULL)))
checkException(check_uaselection(-1, starts=list(NULL),
counts=list(3)))
checkException(check_uaselection(-1, starts=list(6),
counts=list(-1)))
checkException(check_uaselection(15, starts=list(11),
counts=list(6)))
checkException(check_uaselection(-1, starts=list(1),
counts=list(3e9)))
checkException(check_uaselection(-1, starts=list(c(3, 5, 2)),
counts=list(1e9, 1e9, 1e9)))
}
test_check_ordered_uaselection <- function()
{
check_ordered_uaselection <- HDF5Array:::check_ordered_uaselection
# TODO!
}
test_reduce_uaselection <- function()
{
reduce_uaselection <- HDF5Array:::reduce_uaselection
checkIdentical(NULL, reduce_uaselection(c(99, 99))) # no reduction
## specifying 'starts' only (no 'counts')
starts <- list(NULL, c(2, 6))
checkIdentical(NULL, reduce_uaselection(c(99, 99), starts)) # no reduction
starts <- list(NULL, integer(0))
checkIdentical(NULL, reduce_uaselection(c(99, 99), starts)) # no reduction
starts <- list(NULL, c(2:5, 7:10))
current <- reduce_uaselection(c(99, 99), starts)
checkIdentical(list(NULL, c(2L, 7L)), current[[1L]])
checkIdentical(list(NULL, c(4L, 4L)), current[[2L]])
current <- reduce_uaselection(c(99, 99), starts=list(7:10, c(1:2, 5)))
checkIdentical(list(7L, c(1L, 5L)), current[[1L]])
checkIdentical(list(4L, c(2L, 1L)), current[[2L]])
starts <- list(NULL, c(4, 6:7), c(2, 5), integer(0), numeric(0))
current <- reduce_uaselection(rep(99, 5), starts)
checkIdentical(list(NULL, c(4L, 6L), c(2L, 5L), integer(0), integer(0)),
current[[1L]])
checkIdentical(list(NULL, c(1L, 2L), NULL, NULL, NULL),
current[[2L]])
## specifying 'starts' and 'counts'
dim <- c(99, 99)
starts <- list(NULL, c(2, 6))
counts <- list(NULL, NULL)
checkIdentical(NULL, reduce_uaselection(dim, starts, counts)) # no reduction
starts <- list(NULL, c(2, 6))
counts <- list(NULL, c(3, 4))
checkIdentical(NULL, reduce_uaselection(dim, starts, counts)) # no reduction
starts <- list(NULL, 5)
counts <- list(NULL, 0)
current <- reduce_uaselection(dim, starts, counts)
checkIdentical(list(NULL, integer(0)), current[[1L]])
checkIdentical(list(NULL, integer(0)), current[[2L]])
starts <- list(NULL, c(6, 9))
counts <- list(NULL, c(2, 0))
current <- reduce_uaselection(dim, starts, counts)
checkIdentical(list(NULL, 6L), current[[1L]])
checkIdentical(list(NULL, 2L), current[[2L]])
starts <- list(NULL, c(2, 5, 5, 6, 11, 11))
counts <- list(NULL, c(3, 0, 1, 4, 0, 5))
current <- reduce_uaselection(dim, starts, counts)
checkIdentical(list(NULL, c(2L, 11L)), current[[1L]])
checkIdentical(list(NULL, c(8L, 5L)), current[[2L]])
starts <- list(NULL, c(2, 6, 10), c(5:10, 15, 3e9-10:1), c( 99, 2e9))
counts <- list(NULL, c(3, 4, 3), NULL, c(6e8, 5e8))
current <- reduce_uaselection(c(99, 99, 3e9, 3e9), starts, counts)
checkIdentical(list(NULL, c(2L, 6L), c(5, 15, 3e9-10), c(99L, 2e9L)),
current[[1L]])
checkIdentical(list(NULL, c(3L, 7L), c(6L, 1L, 10L), c(6e8L, 5e8L)),
current[[2L]])
}
test_map_starts_to_chunks <- function()
{
map_starts_to_chunks <- HDF5Array:::map_starts_to_chunks
## 1 dimension
current <- map_starts_to_chunks(list(13:22), 85, 1)
target <- list(list(as.double(1:10)), list(as.double(12:21)))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(13:22), 85, 10)
target <- list(list(c(8, 10)), list(c(1, 2)))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(c(1:15, 49:51)), 85, 10)
target <- list(list(c(10, 15, 17, 18)), list(c(0, 1, 4, 5)))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(2*(10:35)), 85, 10)
target <- list(list(1 + 5*(0:5)), list(as.double(1:6)))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(c(6e9, 6e9 + 1)), 9e9, 3)
target <- list(list(c(1, 2)), list(c(1999999999, 2000000000)))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(8e9), 9e9, 3)
target <- list(list(1), list(2666666666))
checkIdentical(target, current)
## more dimensions
current <- map_starts_to_chunks(list(NULL, 13:22, NULL),
c(0, 85, 999), c(0, 10, 1))
target <- list(list(NULL, c(8, 10), NULL), list(NULL, c(1, 2), NULL))
checkIdentical(target, current)
## edge cases
current <- map_starts_to_chunks(list(), integer(0), integer(0))
target <- list(list(), list())
checkIdentical(target, current)
current <- map_starts_to_chunks(list(NULL), 0, 0)
target <- list(list(NULL), list(NULL))
checkIdentical(target, current)
checkException(map_starts_to_chunks(list(NULL), 1, 0))
current <- map_starts_to_chunks(list(NULL), 0, 1)
target <- list(list(NULL), list(NULL))
checkIdentical(target, current)
current <- map_starts_to_chunks(list(integer(0)), 0, 1)
target <- list(list(numeric(0)), list(numeric(0)))
checkIdentical(target, current)
}
|
