tests/testthat/test.nhl_url_players.R

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

context("nhl_url_player")

testthat::test_that(
  "nhl_url_player generates a player url",
  testthat::expect_equal(
    nhl_url_players(8477474),
    paste0(baseurl, "people/8477474")
  )
)

testthat::test_that(
  "nhl_url_player generates multiple player urls",
  testthat::expect_equal(
    nhl_url_players(c(8477474, 8477475)),
    paste0(baseurl, c("people/8477474", "people/8477475"))
  )
)

testthat::test_that(
  "nhl_url_player generates urls for big numbers, no scientific notation",
  testthat::expect_equal(
    nhl_url_players(9000000000),
    paste0(baseurl, "people/9000000000")
  )
)

testthat::test_that(
  "nhl_url_player generates urls for big numbers, no scientific notation",
  testthat::expect_equal(
    nhl_url_players(c(9000000000, 8000000000)),
    paste0(baseurl, c("people/9000000000", "people/8000000000"))
  )
)

testthat::test_that(
  "nhl_url_player generates urls for big integers, no scientific notation",
  testthat::expect_equal(
    nhl_url_players(900000L),
    paste0(baseurl, "people/900000")
  )
)