tests/testthat/test-transit_network_to_sf.R

In r5r: Rapid Realistic Routing with 'R5'

context("transit_network_to_sf")

testthat::skip_on_cran()

# expected behavior
test_that("transit_network_to_sf - expected behavior", {

  testthat::expect_type( transit_network_to_sf(r5r_core), 'list')
})



# Expected errors
test_that("transit_network_to_sf - expected errors", {

  # invalid input
  testthat::expect_error( transit_network_to_sf('a') )
})