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))
})
ropensci/beautier documentation built on April 2, 2024, 5:01 a.m.