inst/tinytest/test_team.R

In kmacdon/sportscraper: Scrape Sports Data from Sports-Reference

load("data/team_test_data.RData")
load("data/team_table_data.RData")

if(at_home()){
  expect_equivalent(sportscraper::team_data("Boston Bruins", "NHL"), 
                    team_test_data[["Boston Bruins"]])
  
  expect_equivalent(sportscraper::team_data("Chicago Bears", "NFL"), 
                    team_test_data[["Chicago Bears"]])
  
  expect_equivalent(sportscraper::team_data("Boston Celtics", "NBA"), 
                    team_test_data[["Boston Celtics"]])
  
  expect_equivalent(sportscraper::team_data("Chicago Cubs", "MLB"), 
                    team_test_data[["Chicago Cubs"]])
} else {
  expect_equivalent(sportscraper:::nhl_team("Boston Bruins", team_table_data[["Boston Bruins"]]), 
                    team_test_data[["Boston Bruins"]])
  
  expect_equivalent(sportscraper:::nfl_team("Chicago Bears", team_table_data[["Chicago Bears"]]), 
                    team_test_data[["Chicago Bears"]])
  
  expect_equivalent(sportscraper:::nba_team("Boston Celtics", team_table_data[["Boston Celtics"]], defensive = FALSE), 
                    team_test_data[["Boston Celtics"]])
  
  expect_equivalent(sportscraper:::mlb_team("Chicago Cubs", team_table_data[["Chicago Cubs"]], defensive = FALSE), 
                    team_test_data[["Chicago Cubs"]])
}

expect_error(team_data("Chicago Cubs", "SDF"))