tests/testthat/test_h5save.R

In rhdf5: R Interface to HDF5

library(rhdf5)

context("h5save function")
## h5save doesn't close files, so we have to use h5closeAll() after every call!

A = 1:7;  
B = 1:18; 
D = seq(0,1,by=0.1)
## output file name
h5File <- tempfile(pattern = "ex_save", fileext = ".h5")

test_that("Default arguments", {
    expect_silent(h5save(A, B, D, file = h5File))
    h5closeAll()
})

test_that("File exists", {
    expect_true( file.exists(h5File) )
    ## remove it for now, we should check overwriting later
    file.remove(h5File)
})

test_that("Changing dataset names", {
    dsetNames <- c("dset1", "dset2", "dset3")
    expect_silent(h5save(A, B, D, file = h5File, name = dsetNames))
    h5closeAll()
    expect_true( file.exists(h5File) )
    expect_equal( names(h5dump(h5File)),
                 dsetNames )
})

test_that("Error on wrong number of names", {
    expect_error( h5save(A, B, file = h5File, name = "A") )
    expect_error( h5save(A, B, file = h5File, name = c("A", "B", "C")) )
})

test_that("Fail if file doesn't exist", {
    if(file.exists(h5File))
       file.remove(h5File)
    expect_error(h5save(A, B, D, file = h5File, createnewfile = FALSE))
    h5closeAll()
})

#test_that("Suppress Internal error messages", {
#    h5errorHandling(type = "suppress")
#})

test_that("Adding to existing file", {
    h5save(A, file = h5File)
    h5closeAll()
    expect_equal( names(h5dump(h5File)), "A" )
    
    h5save(B, D, file = h5File)
    h5closeAll()
    expect_equal( names(h5dump(h5File)), c("A", "B", "D") )
})

test_that("Try to overwrite existing data set with same name", {
    if(file.exists(h5File))
        file.remove(h5File)
    
    expect_null(h5save(A, file = h5File))
    h5closeAll()
    
    ## this will throw an HDF5 error, but I don't know how to catch it yet
    h5errorHandling(type = "suppress")
    expect_null(h5save(B, file = h5File, name = "A"))
    h5closeAll()
    
    expect_false( identical(h5read(file = h5File, name = "A"), B) )
})

## currently fails hard!
# test_that("Name can take a path", {
#     if(file.exists(h5File))
#         file.remove(h5File)
#     
#     h5save(A, file = h5File, name = "/foo/baa")
#     H5close()
# })