tests/testthat/test_get_tournament_players.R

In HaydenMacDonald/squashinformr: Politely Web Scrape Data from SquashInfo

context("Tournament Players")

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

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

  expect_error(squashinformr::get_tournament_players(1, year = 2020, world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players("CIB Egyptian Open", year = "2020-01-01", world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players("CIB Egyptian Open", year = 2020, world_tour = "TRUE"))
  expect_error(squashinformr::get_tournament_players("Premier League", year = 2020, world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players("CIB Egyptian Open", year = 2018, world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players(year = 20, world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players(year = -2020, world_tour = TRUE))
  expect_error(squashinformr::get_tournament_players(tournament = NULL, year = 2021, world_tour = FALSE))

})

test_that("test get_tournament_players for proper outputs", {

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

  ## Allam British Open, with year
  df <- squashinformr::get_tournament_players("Allam British Open", year = 2022, world_tour = TRUE)
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_is(sample(df$tournament_date, 1), "Date")
  expect_equal(year(sample(df$tournament_date, 1)), 2022)

  ## Allam British Open, without year
  df <- squashinformr::get_tournament_players("Allam British Open", year = NULL, world_tour = TRUE)
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_is(sample(df$tournament_date, 1), "Date")
  expect_equal(year(sample(df$tournament_date, 1)), 2022)

})