tests/testthat/test-season_seq.R

test_that("Test: season_seq", {

  res <- season_seq(from = 20, to = 22)

  out <- kb.utils::catch_error(expr = season_seq(from = "20", to = "22"))

  expect_false(is.null(out$error))

})
kristian-bak/football documentation built on Oct. 8, 2022, 2:11 p.m.