tests/testthat/test-rail-position.R

test_that("current train positions found", {
  skip_if_no_key()
  Sys.sleep(0.11)
  p <- rail_positions()
  expect_length(p, 9)
  expect_s3_class(p, "data.frame")
  expect_type(p$CarCount, "integer")
})
kiernann/metro documentation built on March 15, 2024, 3:26 a.m.