tests/testthat/test-create_site_models.R

In richelbilderbeek/beastscriptr: 'BEAUti' from R

context("create_site_models")

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

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

})