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
|
library(rhdf5)
############################################################
context("H5P functions")
############################################################
test_that("Property list creation & closure", {
expect_silent(pid <- H5Pcreate())
expect_is(pid , "H5IdComponent")
expect_silent(H5Pclose(pid))
})
test_that("Property list creation & closure", {
expect_silent( pid1 <- H5Pcreate() )
expect_silent( pid2 <- H5Pcopy(pid1) )
expect_is(pid2 , "H5IdComponent")
expect_silent(H5Pclose(pid1))
expect_silent(H5Pclose(pid2))
})
test_that("setting and getting libhdf5 version bounds", {
expect_silent( pid1 <- H5Pcreate("H5P_FILE_ACCESS") )
expect_output( version_bounds <- H5Pget_libver_bounds(pid1),
regexp = "^low" )
expect_is( version_bounds, "character" )
expect_equivalent(version_bounds,
c("H5F_LIBVER_EARLIEST","H5F_LIBVER_LATEST"))
## V18 is different from both EARLIEST and LATEST
expect_silent( H5Pset_libver_bounds(pid1, libver_low = "H5F_LIBVER_EARLIEST", libver_high = "H5F_LIBVER_V18") )
expect_output( version_bounds <- H5Pget_libver_bounds(pid1),
regexp = "^low" )
expect_equivalent(version_bounds,
c("H5F_LIBVER_EARLIEST","H5F_LIBVER_V18"))
expect_silent(H5Pclose(pid1))
})
test_that("Dataset creation properties can be set", {
expect_silent(pid <- H5Pcreate("H5P_DATASET_CREATE"))
## use default layout
expect_silent( layout <- H5Pget_layout(pid) )
expect_is( layout, "character" )
expect_match( as.character(layout), "H5D_CONTIGUOUS")
## change to chunked
expect_silent( H5Pset_layout(pid, layout = "H5D_CHUNKED") )
## check changes
expect_silent( H5Pget_layout(pid) ) %>%
expect_match( "H5D_CHUNKED")
## seting chunk sizes
expect_null( H5Pget_chunk( pid ) )
H5Pset_chunk( pid, dim = c(100,100) )
expect_equal( H5Pget_chunk(pid), c(100,100) )
## default fill values
## I think this is defined by default
expect_true( H5Pfill_value_defined(pid) )
expect_silent( H5Pset_fill_value( pid, 10 ) )
expect_silent( H5Pset_fill_value( pid, 10L ) )
expect_silent( H5Pset_fill_value( pid, "foo" ) )
expect_silent( H5Pset_fill_value( pid, TRUE ) )
expect_error( H5Pset_fill_value( pid, sum ))
## setting whether times are tracked
expect_silent(H5Pset_obj_track_times(pid, TRUE))
expect_true(H5Pget_obj_track_times(pid))
expect_silent(H5Pset_obj_track_times(pid, FALSE))
expect_false(H5Pget_obj_track_times(pid))
expect_silent(H5Pclose(pid))
})
test_that("No open HDF5 objects are left", {
expect_equal( length(h5validObjects()), 0 )
})
|
