tests/testthat/test-grid_to_polygon.R

In quadkeyr: Generate Raster Images from QuadKey-Identified Datasets

# Test cases for `grid_to_polygon()`
# Mock data
grid <- create_qk_grid(
  xmin = -59,
  xmax = -57,
  ymin = -35,
  ymax = -34,
  zoom = 11
)

grid_coords <- get_qk_coord(data = grid$data)
grid_coords

polygrid <- grid_to_polygon(grid_coords)
polygrid


# Check that the error is working when the data is not class 'sf'
test_that("Dataset is of class 'sf'", {
  expect_silent(polygrid)
  expect_error(grid_to_polygon(as.data.frame(grid_coords)))
})