tests/testthat/test-pvol.R

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

pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
pvol <- read_pvolfile(pvolfile)
vp <- example_vp

# No tests for error on incorrect parameters:
# summary(), print(), dim() are generic and work for every input
# is.pvol() returns TRUE/FALSE and works for every input

test_that("print method on pvol returns correct test", {
  expect_snapshot(
    cat(
      print(pvol)
    )
  )
})

test_that("summary.pvol() prints metadata to the console", {
  # print.pvol() is not tested as it is the same as and called from summary.pvol()
  expect_output(summary(pvol), "Polar volume (class pvol)", fixed = TRUE)
  expect_output(summary(pvol), "# scans:", fixed = TRUE)
  expect_output(summary(pvol), "radar:", fixed = TRUE)
  expect_output(summary(pvol), "source:", fixed = TRUE)
  expect_output(summary(pvol), "nominal time:", fixed = TRUE)
})

test_that("is.pvol() returns TRUE/FALSE correctly", {
  expect_true(is.pvol(pvol))
  expect_false(is.pvol("not_a_pvol"))
  expect_false(is.pvol(vp))
})

test_that("dim.pvol() returns number of scans", {
  expect_vector(dim(pvol))
  expect_equal(dim(pvol), c(3)) # 3 scans in example_pvol
})