tests/testthat/test-rail-lines.R

test_that("all lines are returned", {
  skip_if_no_key()
  Sys.sleep(0.11)
  l <- rail_lines()
  expect_length(l, 5)
  expect_equal(nrow(l), 6)
  expect_s3_class(l, "data.frame")
})
kiernann/metro documentation built on March 15, 2024, 3:26 a.m.