tests/testthat/test-test-if-hts-not-in-formula.R

test_that("test_if_hts_not_in_formula errors appropriately", {
  expect_snapshot(
    error = TRUE,
    test_if_hts_not_in_formula(y ~ x)
  )
  expect_snapshot(
    error = TRUE,
    test_if_hts_not_in_formula(y ~ x + hts())
  )
  expect_silent(
    test_if_hts_not_in_formula(y ~ x + hts(country))
  )

})
njtierney/yahtsee documentation built on Feb. 5, 2022, 8:25 p.m.