tests/testthat/test-nhl_draft_prospects_info.R

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

test_that("NHL - Get NHL draft prospects info", {
  skip_on_cran()
  x <- nhl_draft_prospects_info(prospect_id=65242)

  cols <- c(
    "prospect_id",
    "full_name",
    "link",
    "first_name",
    "last_name",
    "birth_date",
    "birth_city",
    "birth_country",
    "nationality",
    "height",
    "weight",
    "shoots_catches",
    "nhl_player_id",
    "draft_status",
    "primary_position_code",
    "primary_position_name",
    "primary_position_type",
    "primary_position_abbreviation",
    "prospect_category_id",
    "prospect_category_short_name",
    "prospect_category_name",
    "amateur_team_link",
    "amateur_league_link"
  )
  x <- x %>% dplyr::select(dplyr::all_of(cols))
  expect_equal(colnames(x), cols)
  expect_s3_class(x, 'data.frame')

})