tests/testthat/test-connections.R

context("connections")

test_that("abort invalid query", {
  expect_error(connections())
  expect_error(connections(from = "foo"))
  expect_error(connections(to = "foo"))
  expect_gt(nrow(connections(from = "Bern", to = "Zurich")), 0)
})
retowyss/swiss-public-transport-r documentation built on Oct. 17, 2018, 5:06 p.m.