tests/testthat/testthat.R

In reidfalconer/traveltime: Traveltime: a Traveltime API Wrapper for R

test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})
# This test was commented out due to API details being removed 
# 
# test_that("Object match expectations",{
#   travel_time <- traveltime::traveltime_map(appId="YourAppId",
#                                   apiKey="YourApiKey",
#                                   location=c(41.38926,2.190681),
#                                   traveltime=1800,
#                                   type="public_transport",
#                                   departure="2019-06-15T08:00:00+01:00")
#   expect_is(travel_time, 'sf')
# })
#