tests/testthat/test-read_vpfiles.R

In adokter/bioRad: Biological Analysis and Visualization of Weather Radar Data

test_that("read_vpfiles() returns error on incorrect parameters", {

})

test_that("Read a vertical profile", {
  vpfile <- system.file("extdata", "profile.h5", package = "bioRad")
  expect_s3_class(read_vpfiles(vpfile), "vp")
  expect_s3_class(read_vpfiles(vpfile), "vp")
})

test_that("Read multiple vertical profiles", {
  vpfile <- system.file("extdata", "profile.h5", package = "bioRad")
  # old function -> to vplist class; readvp.list was the function in the earlier
  # releases (not the S3 based method dispatching)
  expect_type(read_vpfiles(c(vpfile, vpfile)), "list")
  # new function -> just a list of vp
  expect_type(read_vpfiles(c(vpfile, vpfile)), "list")
  # expect_error(is(read_vpfiles(c(vpfile, vpfile)), "vplist")) # to add at end of refactoring
  expect_s3_class(read_vpfiles(c(vpfile, vpfile))[[1]], "vp")
  expect_s3_class(read_vpfiles(c(vpfile, vpfile))[[2]], "vp")
})