tests/testthat/test-check_gamma_site_model.R

context("test-check_gamma_site_model")

test_that("use", {
  expect_silent(
    check_gamma_site_model(
      create_gamma_site_model()
    )
  )
  expect_error(
    check_gamma_site_model(
      "nonsense"
    ),
    "'gamma_cat_count' must be an element of a 'gamma_site_model'"
  )
})
ropensci/beautier documentation built on March 12, 2019, 8:27 p.m.