tests/testthat/test-show_seagrasscoverage.R

test_that("Checking show_seagrasscoverage class", {
  result <- show_seagrasscoverage(seagrass)
  expect_is(result, 'NULL')
})

test_that("Checking show_seagrasscoverage maxyr error", {
  expect_error(show_seagrasscoverage(seagrass, maxyr = 2015))
})
tbep-tech/tbeptools documentation built on April 13, 2025, 4:50 p.m.