tests/testthat/test-show_tdlcrkradar.R

In tbep-tech/tbeptools: Data and Indicators for the Tampa Bay Estuary Program

test_that("Checking show_tdlcrkradar class", {
  id <- cntdatrdr$id[1]
  result <- show_tdlcrkradar(id, cntdatrdr)
  expect_is(result, 'NULL')

})

test_that("Checking show_tdlcrkradar no data", {

  expect_error(show_tdlcrkradar('xxxxxx', cntdatrdr))

})