tests/testthat/test-contains-hts-call.R

test_that("contains_hts_call works", {
  expect_false(contains_hts_call(y ~ x + z))
  expect_false(contains_hts_call(y ~ x + z + hts()))
  expect_true(contains_hts_call(y ~ x + z + hts(thing)))
})
njtierney/yahtsee documentation built on Feb. 5, 2022, 8:25 p.m.