tests/testthat/test.nhl_draft_prospects.R

In jozefhajnala/nhlapi: A Minimum-Dependency 'R' Interface to the 'NHL' API

context("nhl_draft_prospects")

testthat::test_that(
  "nhl_draft_prospects has correct names", {
    testthat::skip_if_offline(host = "nhl.com")
    testthat::skip_if(skipRemoteTests)

    res <- nhl_draft_prospects()
    testthat::expect_true(all(
      c(
        "id", "fullName", "link", "firstName", "lastName",
        "birthDate", "height", "weight", "shootsCatches",
        "draftStatus", "birthCountry", "birthCity",
        "birthStateProvince", "nationality", "nhlPlayerId"
      ) %in% names(res)
    ))
  }
)