tests/testthat/test-schedule.R

In pbulsink/nhlRapi: R Interface to the NHL API

context("test-schedule")

test_that("Schedule Scraping works", {
  q <- getSchedule(team = 1, startDate = "2019-02-21",
    scheduleType = "broadcasts")

  expect_s3_class(q, 'nhl_api')

  expect_equal(names(q$data), c("totalItems",
    "totalEvents", "totalGames", "totalMatches",
    "wait", "dates"))

  expect_equal(q$data$dates$date, "2019-02-21")

  expect_true("broadcasts" %in% names(q$data$dates$games[[1]]))

  q <- getSchedule(startDate = "2019-02-01",
    endDate = "2019-02-03")

  expect_s3_class(q, 'nhl_api')
  expect_equal(length(q$data$dates$date), 3)

  # Expected Failures
  expect_error(getSchedule("Toronto"))
  expect_error(getSchedule(1, scheduleType = c("broadcasts",
    "ticket")))
  expect_error(getSchedule(1, scheduleType = "bad.call"))
  expect_error(getSchedule(1, startDate = "bad",
    endDate = "bad"))
  expect_error(getSchedule(1, startDate = NULL,
    endDate = "2019-02-28"))
  expect_error(getSchedule(1, startDate = "2019-02-28",
    endDate = "2018-02-28"))
  expect_error(getSchedule(1, startDate = "bad",
    endDate = "bad"))

})