tests/testthat/test-polygon.R

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

context("lawn_polygon")

test_that("lawn_polygon works", {
  rings <- list(list(
    c(-2.275543, 53.464547),
    c(-2.275543, 53.489271),
    c(-2.215118, 53.489271),
    c(-2.215118, 53.464547),
    c(-2.275543, 53.464547)
  ))
  a <- lawn_polygon(rings)
  b <- lawn_polygon(rings, properties = list(name = 'poly1', population = 400))

  expect_is(a, "polygon")
  expect_is(unclass(a), "list")
  expect_equal(a$type, "Feature")
  expect_is(a$geometry, "list")
  expect_is(a$geometry$coordinates, "array")
  expect_equal(length(a$geometry$coordinates), 10)
  expect_equal(length(a$properties), 0)

  expect_is(b, "polygon")
  expect_is(unclass(b), "list")
  expect_equal(b$type, "Feature")
  expect_is(b$geometry, "list")
  expect_is(b$properties, "list")
  expect_equal(length(b$properties), 2)

  # passing NULL gives empty polygon geometry
  expect_is(lawn_polygon(NULL), "polygon")
})

test_that("lawn_polygon fails correctly", {
  expect_error(lawn_polygon(),
    "argument \"coordinates\" is missing, with no default")
  expect_error(lawn_polygon("stuff"))
})