tests/testthat/test-api.R

In kiernann/metro: Washington Metropolitan Area Transit Authority API

test_that("API errors for a bad path", {
  expect_error(wmata_api("Rail"))
})

test_that("API errors with message", {
  expect_error(next_train(station = "XXX"))
})

test_that("API returns JSON for a proper path", {
  skip_if_no_key()
  Sys.sleep(0.11)
  x <- wmata_api("Rail.svc/json/jLines")
  expect_length(x, 1)
})