tests/testthat/test-create_clock_models.R

context("create_clock_models")

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

  clock_models <- create_clock_models()
  testthat::expect_true(length(clock_models) > 1)
  for (clock_model in clock_models) {
    testthat::expect_true(is_clock_model(clock_model))
  }
})
richelbilderbeek/beastscriptr documentation built on April 9, 2024, 2:28 p.m.