tests/testthat/test-bus-positions.R

In metro: Washington Metropolitan Area Transit Authority API

test_that("entrace returns empty and warns for short radius", {
  skip_if_no_key()
  Sys.sleep(0.11)
  e <- expect_message(bus_position(NULL, 38, -77, 0))
  expect_length(e, 13)
  expect_s3_class(e, "data.frame")
  expect_equal(nrow(e), 0)
})

test_that("entrances found for single location", {
  skip_if_no_key()
  Sys.sleep(0.11)
  # white house
  e <- bus_position(NULL, 38.897957, -77.036560, 1000)
  expect_length(e, 13)
  expect_s3_class(e, "data.frame")
  expect_false(any(is.na(e$Distance)))
})

test_that("all entrances returned without radius", {
  skip_if_no_key()
  Sys.sleep(0.11)
  # white house
  e <- bus_position(NULL, 38.897957, -77.036560)
  expect_length(e, 13)
  expect_s3_class(e, "data.frame")
  expect_false(any(is.na(e$Distance)))
})

test_that("distances not returned without coordinates", {
  skip_if_no_key()
  Sys.sleep(0.11)
  e <- bus_position()
  expect_length(e, 13)
  expect_s3_class(e, "data.frame")
  expect_true(all(is.na(e$Distance)))
})