tests/testthat/test-init_gamma_site_model.R

In richelbilderbeek/beautier: 'BEAUti' from R

context("init_gamma_site_model")

test_that("use", {

  gamma_site_model <- create_gamma_site_model(
    gamma_cat_count = 2,
    gamma_shape_prior_distr = create_one_div_x_distr(id = NA)
  )
  expect_true(!is_init_gamma_site_model(gamma_site_model))
  gamma_site_model <- init_gamma_site_model(gamma_site_model)
  testthat::expect_true(is_init_gamma_site_model(gamma_site_model))

})