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 Aug. 31, 2018, 11:05 a.m.