tests/testthat/test-read_kmz.R

test_that("read_kmz", {

  kmz_path <- "RSP-CERP-geo-boundary.kmz"
  expect_true(file.exists(kmz_path))

  result <- read_kmz(kmz_path)
  expect_is(result, "sf")
  expect_equal(nrow(result), 1)
  expect_true(all(c("Name", "Description") %in% names(result)))

})
BAAQMD/geotools documentation built on Feb. 29, 2024, 5:44 a.m.