test_that(".calc_fatalities works", {
  shp <- read_sf(
    system.file("extdata", "burundi.gpkg",
      package = "mapme.biodiversity"
    )
  )
  ucdp_ged <- list.files(system.file("res", "ucdp_ged",
    package = "mapme.biodiversity"
  ), pattern = ".gpkg$", full.names = TRUE)
  ucdp_ged <- read_sf(ucdp_ged)

  expect_error(
    calc_fatalities(years = 1980),
    "The target years do not intersect with the availability of ucdp_ged."
  )
  expect_error(
    calc_fatalities(precision_location = 8),
    "Argument precision_location must be a single numeric between 1 and 7."
  )
  expect_error(
    calc_fatalities(precision_time = 6),
    "Argument precision_time must be a single numeric between 1 and 5."
  )

  cf <- calc_fatalities(years = 1991:1992)
  result_default <- cf(shp, list(ucdp_ged))
  cf <- calc_fatalities(years = 1991:1992, precision_location = 7, precision_time = 5)
  result_all <- cf(shp, list(ucdp_ged))

  cols <- c("month", "type_of_violence", "deaths_civilians", "deaths_unknown", "deaths_total", "event_count")
  n_rows <- 72

  expect_equal(
    names(result_default),
    cols
  )

  expect_equal(
    nrow(result_default),
    n_rows
  )

  expect_equal(
    sum(result_default$deaths_total),
    20
  )

  expect_equal(
    sum(result_default$event_count),
    1
  )

  expect_equal(
    names(result_all),
    cols
  )

  expect_equal(
    nrow(result_all),
    n_rows
  )

  expect_equal(
    sum(result_all$deaths_total),
    403
  )

  expect_equal(
    sum(result_all$event_count),
    22
  )
})