tests/testthat/test_get_tournaments.R

In HaydenMacDonald/squashinformr: Politely Web Scrape Data from SquashInfo

context("Tournaments")

test_that("test get_tournaments for wrong input errors", {

  testthat::skip_if_offline()
  testthat::skip_on_cran()

  ## tournament is character
  expect_error(squashinformr::get_tournaments(year = "2020", world_tour = TRUE))

  ## world_tour is not logical
  expect_error(squashinformr::get_tournaments(year = 2020, world_tour = "TRUE"))

  ## year does not have 4 digits
  expect_error(squashinformr::get_tournaments(year = 20, world_tour = TRUE))

  ## year is negative
  expect_error(squashinformr::get_tournaments(year = -2020, world_tour = TRUE))

})

test_that("test get_tournaments for proper outputs", {

  testthat::skip_if_offline()
  testthat::skip_on_cran()

  df <- squashinformr::get_tournaments(year = 2022, world_tour = FALSE)
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_equal(length(unique(na.omit(df$category))), 2)
  expect_is(sample(df$date, 1), "Date")
  expect_equal(year(sample(df$date, 1)), 2022)

  df <- squashinformr::get_tournaments(year = 2022, world_tour = TRUE)
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_equal(length(unique(na.omit(df$category))), 2)
  expect_is(sample(df$date, 1), "Date")
  expect_equal(year(sample(df$date, 1)), 2022)

})