data-raw/raw_data/tests/testthat/test-phf_schedule.R

In benhowell71/fastRhockey: Functions to Access Professional Women's Hockey League and National Hockey League Play by Play Data

test_that("PHF Schedule", {
  skip_on_cran()
  x <- phf_schedule(season = 2018)

  cols <- c('type', 'id', 'league_id', 'season_id',
            'tournament_id',  'game_id', 'number',  'datetime', 'datetime_tz',
            'time_zone', 'time_zone_abbr',
            'updated_at',  'created_at', 'home_team_id',
            'home_team',  'home_team_short', 'home_team_logo_url',
            'away_team_id', 'away_team', 'away_team_short',  'away_team_logo_url',
            'home_division_id',  'home_division',   'away_division_id',  'away_division',
            'home_score', 'away_score',  'facility_id', 'facility', 'facility_address',
            'rink_id', 'rink', 'game_type',  'notes', 'status',
            'overtime', 'shootout',  'allow_players',  'tickets_url',
            'watch_live_url',  'external_url',  'has_play_by_play',
            'highlight_color',  'date_group')

  expect_equal(colnames(x), cols)
  expect_s3_class(x, "data.frame")
})