tests/testthat/test-are_init_site_models.R

context("test-are_init_site_models")

test_that("use", {

  g <- create_jc69_site_model(
    id = 42,
    gamma_site_model = create_gamma_site_model(
      gamma_cat_count = 2,
      gamma_shape_prior_distr = create_one_div_x_distr(id = 0)
    )
  )
  testit::assert(is_init_site_model(g))

  expect_true(are_init_site_models(list(g)))

  expect_false(are_init_site_models("nonsense"))

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