tests/testthat/test-is_hky_site_model.R

context("is_hky_site_model")

test_that("use", {

  testthat::expect_true(is_hky_site_model(create_hky_site_model()))
  testthat::expect_false(is_hky_site_model(create_jc69_site_model()))

})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.