tests/testthat/test-plot.ppi.R

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

data(example_scan)
ppi <- project_as_ppi(example_scan)
example.plot <-plot(ppi, param = "VRADH", zlim = c(-5, 5))

test_that("plot.ppi() returns error on incorrect parameters", {
  # use plot.ppi() to avoid defaulting to base plot()
  expect_error(plot.ppi("not_a_ppi"),
               regexp = 'inherits(x, "ppi") is not TRUE',
               fixed = TRUE)
  expect_error(plot(ppi, param = "not_a_param"),
               regexp = "parameter 'not_a_param' not found in PPI",
               fixed = TRUE)
  expect_error(plot(ppi, quantity = "DBZH"),
               regexp = "unknown function argument 'quantity`. Did you mean `param`?",
               fixed = TRUE)
})

test_that("plot.ppi() defaults to DBZH if param missing", {
  expect_equal(plot(ppi), plot(ppi, param = "DBZH"))
})

test_that("plot.ppi() returns ggplot object", {
  expect_s3_class(plot(ppi), c("gg", "ggplot"))
})

test_that("plot.ppi() takes zlim arguments", {
  expect_true(all(example.plot$data$VRADH >= -5, na.rm = TRUE))
  expect_true(all(example.plot$data$VRADH <= 5, na.rm = TRUE))
})

test_that("plot.ppi() uses param argument", {
  expect_true("VRADH" %in% names(example.plot$data))
})

test_that("plot.ppi()length does not differ", {
  expect_equal(length(example.plot$data$VRADH), length(ppi$data$VRADH))
})