#if (fs::dir_exists(here::here("tests", "testthat", "testdata"))) {
#  pr_gpkg <- here::here("tests", "testthat", "testdata", "parana.gpkg") |>
#    sf::st_read(quiet = TRUE)
#} else {
#  pr_gpkg <- test_path("testdata","parana.gpkg") |>
#    sf::st_read(quiet = TRUE)
#}
#
#
### Test write_gpkg
#test_that("write_gpkg.sdm_area - salvar arquivo com sf", {
#  tmp_dir <- "/tmp"
#  withr::with_tempdir(
#    pattern = "tmp_sdm_area",
#    {
#      sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6933)
#      sa |> write_gpkg(file_path = ".", file_name = "parana")
#      expect_file_exists(fs::path("parana.gpkg"))
#    },
#    tmpdir = tmp_dir
#  )
#})
#
#
#test_that("write_gpkg.sdm_area - salvar arquivo com sf path invalido", {
#  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6933)
#  expect_error(
#    sa |> write_gpkg(file_path = "parana.gpkg", file_name = "parana"),
#    "x Assertion on file_path failed."
#  )
#})
#
#
#test_that("write_gpkg.sdm_area - salvar arquivo com sf path invalido", {
#  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6933)
#  expect_error(
#    sa |> write_gpkg(file_path = "/parana", file_name = "parana"),
#    "x Assertion on file_path failed."
#  )
#})
#
#
#test_that("write_gpkg.sdm_area - salvar arquivo com sf file path invalido", {
#  sa <- sdm_area(pr_gpkg, cell_size = 50000, crs = 6933)
#  expect_error(
#    sa |> write_gpkg(file_path = "/tmp", file_name = 1),
#    "x Assertion on file_name failed."
#  )
#})
#