tests/testthat/test-extracts.R

In pedersen-fisheries-lab/spaspm: Spatial Surplus Production Model Framework for Northern Shrimp Populations

# Extract methods

test_that("Extractors work as expected", {

  expect_class(boundary$sfa, "sf")
  expect_class(boundary_discrete$sfa, "sf")
  expect_class(biomass_dataset$sfa, "sf")
  expect_class(biomass_dataset_smoothed$sfa, "sf")
  expect_class(sspm_model$sfa, "sf")

})