tests/testthat/test_get_player_recent_matches.R

In HaydenMacDonald/squashinformr: Politely Web Scrape Data from SquashInfo

context("Player Recent Matches")

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

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

  ## Both player and rank are provided
  expect_error(squashinformr::get_player_recent_matches(player = 1, rank = 1, category = "mens"))

  ## Multiple players provided
  expect_error(squashinformr::get_player_recent_matches(player = c("Mohamed Elshorbagy", "Ali Farag"), rank = NULL, category = "mens"))

  ## Player and ranks are empty strings
  expect_error(squashinformr::get_player_recent_matches(player = "", category = "mens"))
  expect_error(squashinformr::get_player_recent_matches(rank = "", category = "mens"))
  expect_error(squashinformr::get_player_recent_matches(player = "", category = "womens"))
  expect_error(squashinformr::get_player_recent_matches(rank = "", category = "womens"))
  expect_error(squashinformr::get_player_recent_matches(player = "", category = "both"))
  expect_error(squashinformr::get_player_recent_matches(rank = "", category = "both"))

  ## Incorrect category provided
  expect_error(squashinformr::get_player_recent_matches(rank = 1, category = "man"))

  ## Rank is character, category is not valid
  expect_error(squashinformr::get_player_recent_matches(rank = "Mohamed Elshorbagy", category = "1"))

  ## Player and rank are both provided, but not valid
  expect_error(squashinformr::get_player_recent_matches(player = "", rank = "", category = "mens"))
  expect_error(squashinformr::get_player_recent_matches(player = NULL, rank = NULL, category = "mens"))

  ## "Do not provide player names when supplying multiple ranks"
  expect_error(squashinformr::get_player_recent_matches(player = "Mohamed Elshorbagy", rank = 1:2, category = "mens"))

  ## "When scraping across competition categories, only provide ranks"
  expect_error(squashinformr::get_player_recent_matches(player = "Mohamed Elshorbagy", rank = NULL, category = "both"))

})

test_that("test get_player_recent_matches for proper outputs", {

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

  ## category == "mens"
  df <- squashinformr::get_player_recent_matches("Mohamed Elshorbagy", category = "mens")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")

  df <- squashinformr::get_player_recent_matches(rank = 1, category = "mens")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")

  ## category == "womens"
  df <- squashinformr::get_player_recent_matches("Nouran Gohar", category = "womens")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")

  df <- squashinformr::get_player_recent_matches(rank = 1, category = "womens")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")

  ## category == "both"
  df <- squashinformr::get_player_recent_matches(player = NULL, rank = 1, category = "both")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_equal(length(unique(df$player)), 2)

  df <- squashinformr::get_player_recent_matches(player = NULL, rank = 1:2, category = "both")
  expect_is(df, "data.frame")
  expect_is(df, "tbl")
  expect_equal(length(unique(df$player)), 4)

})