tests/testthat/test-create_site_models.R

context("create_site_models")

test_that("all site_models must be recognized as such", {

  site_models <- beautier:::create_site_models()
  testthat::expect_true(length(site_models) > 1)
  for (site_model in site_models) {
    testthat::expect_true(is_site_model(site_model))
  }

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