tests/testthat/test-create_clock_models.R

context("create_clock_models")

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

  clock_models <- beautier:::create_clock_models()
  testthat::expect_true(length(clock_models) > 1)
  for (clock_model in clock_models) {
    testthat::expect_true(beautier:::is_clock_model(clock_model))
  }
})
ropensci/beautier documentation built on Aug. 20, 2019, 8:12 p.m.