tests/testthat/test-are_clock_models.R

test_that("use", {
  expect_true(are_clock_models(create_strict_clock_model()))
  expect_false(are_clock_models("nonsense"))
  expect_false(are_clock_models(rep("nonsense", 2)))
  expect_false(are_clock_models(NA))
  expect_false(are_clock_models(NULL))
})
richelbilderbeek/beastscriptr documentation built on July 10, 2024, 8:07 p.m.