test_that("buffer_sdm", {
  expect_no_error(b <- buffer_sdm(occ, size = 100000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_no_error(b <- buffer_sdm(occ, size = 10000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "MULTIPOLYGON")
  expect_no_error(b <- buffer_sdm(occ[,-1], size = 10000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "MULTIPOLYGON")
  expect_error(buffer_sdm(occ[,-3], size = 10000, crs = 6933))
  expect_error(buffer_sdm(occ, size = "10000", crs = 6933))
  expect_error(buffer_sdm(occ, size = 10000, crs = "6933"))
  oc <- occurrences_sdm(occ, crs=4326)
  expect_no_error(b <- buffer_sdm(oc, size = 100000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_no_error(b <- buffer_sdm(oc, size = 10000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "MULTIPOLYGON")
  oc <- occurrences_sdm(occ[,-1], crs=4326)
  expect_no_error(b <- buffer_sdm(oc, size = 10000, crs = 6933))
  expect_true(sf::st_geometry_type(b) == "MULTIPOLYGON")
  expect_error(buffer_sdm(oc, size = "10000", crs = 6933))
  expect_error(buffer_sdm(oc, size = 10000, crs = "6933"))
})

test_that("buffer_sdm - MCP", {
  expect_no_error(b <- buffer_sdm(occ, size = 100000, crs = 6933, mcp = TRUE))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_no_error(b <- buffer_sdm(occ[,-1], size = 10000, crs = 6933, mcp = TRUE))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_error(buffer_sdm(occ, size = 10000, crs = 6933, mcp = "TRUE"))
  oc <- occurrences_sdm(occ, crs=4326)
  expect_no_error(b <- buffer_sdm(oc, size = 100000, crs = 6933, mcp = TRUE))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  oc <- occurrences_sdm(occ[,-1], crs=4326)
  expect_no_error(b <- buffer_sdm(oc, size = 10000, crs = 6933, mcp = TRUE))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_no_error(b <- buffer_sdm(oc, size = 0, crs = 6933, mcp = TRUE))
  expect_true(sf::st_geometry_type(b) == "POLYGON")
  expect_true(all(sf::st_bbox(b) == sf::st_bbox(oc$occurrences)))
})