tests/testthat/test-sf_helpers.R

In sdsfun: Spatial Data Science Complementary Features

test_that("sf_geometry_name works", {
  gzma = sf::read_sf(system.file('extdata/gzma.gpkg',package = 'sdsfun'))
  expect_equal(sf_geometry_name(gzma), "geom")
})

test_that("sf_geometry_type works", {
  gzma = sf::read_sf(system.file('extdata/gzma.gpkg',package = 'sdsfun'))
  expect_equal(sf_geometry_type(gzma), "polygon")
})