tests/testthat/test-destination.R

In ropenscilabs/geoops: 'GeoJSON' Topology Calculations and Operations

context("destination")

point1 <- '{
  "type": "Feature",
  "properties": {
    "marker-color": "#f00"
   },
   "geometry": {
      "type": "Point",
      "coordinates": [-75.343, 39.984]
   }
}'

test_that("destination works well", {
  expect_is(geo_destination(point1, 50, 90, "miles"), "character")
  expect_match(geo_destination(point1, 50, 90, "miles"), "geometry")
  expect_match(geo_destination(point1, 50, 90, "miles"), "coordinates")
  expect_match(geo_destination(point1, 50, 90, "miles"), "Feature")
})

test_that("destination fails well", {
  # expect_error(geo_destination(point1, 50, 90, 'stuff'), "Invalid 'units' input")
  expect_error(geo_destination(point1, 50, 90, "stuff"), class = "std::runtime_error")
  # expect_error(geo_destination(point1, 50, "foobar"),
  #              "Not compatible with requested type")
  expect_error(geo_destination(point1, 50, "foobar"),
    class = "Rcpp::not_compatible"
  )

  expect_error(
    geo_destination(),
    "argument \"from\" is missing, with no default"
  )
  expect_error(
    geo_destination(point1, 50),
    "argument \"bearing\" is missing, with no default"
  )
  expect_error(
    geo_destination(point1, 50),
    "argument \"bearing\" is missing, with no default"
  )
  expect_error(
    geo_destination(point1, bearing = 50),
    "argument \"distance\" is missing, with no default"
  )
})