tests/testthat/test-distance.R

In ropensci/lawn: Client for 'Turfjs' for 'Geospatial' Analysis

context("lawn_distance")

from <- '{
 "type": "Feature",
 "properties": {},
 "geometry": {
   "type": "Point",
   "coordinates": [-75.343, 39.984]
 }
}'
to <- '{
  "type": "Feature",
  "properties": {},
  "geometry": {
    "type": "Point",
    "coordinates": [-75.534, 39.123]
  }
}'

test_that("lawn_distance works", {
  expect_is(lawn_distance(from, to), "numeric")
  expect_equal(round(lawn_distance(from, to, "kilometers"), 0), 97)
  expect_equal(round(lawn_distance(from, to, "miles"), 0), 60)
  expect_equal(round(lawn_distance(from, to, "radians"), 2), 0.02)
  expect_equal(round(lawn_distance(from, to, "degrees"), 2), 0.87)
})

test_that("lawn_distance fails correctly", {
  expect_error(lawn_distance(), "missing, with no default")
  expect_error(lawn_distance(4, 5))
  expect_error(lawn_distance(4, 5, lint = TRUE),
               "The root of a GeoJSON object must be an object")
  expect_error(lawn_distance(from, to, "km"))
})