tests/testthat/test-fire_exp_summary.R

In fireexposuR: Compute and Visualize Wildfire Exposure

test_that("fire_exp_summary() input checks work", {
  exp <- exposure()
  v <- pol()
  expect_condition(fire_exp_summary(2),
                   "`exposure` must be a SpatRaster object")
  expect_condition(fire_exp_summary(exp, 2),
                   "`aoi` must be a SpatVector object")
  expect_condition(fire_exp_summary(exp, v, "blah"),
                   "'arg' should be one of")
})

test_that("fire_exp_summary() returns objects with correct class", {
  exp <- exposure()
  v <- pol()
  expect_s3_class(fire_exp_summary(exp, v), "data.frame")
})

test_that("fire_exp_summary() runs when input conditions are met", {
  exp <- exposure()
  v <- pol()
  expect_no_error(fire_exp_summary(exp, v, "loc"))
  expect_no_error(fire_exp_summary(exp, v, "lan"))
  expect_no_error(fire_exp_summary(exp, classify = "lan"))
})