# Tests for landfireAPI.R

test_that("`landfireAPI()` recognizes arguement errors", {
  products <-  c("ASP2020", "ELEV2020", "140CC")
  aoi <- c("-123.7835", "41.7534", "-123.6352", "41.8042")
  projection <- 6414
  resolution <- 90
  edit_rule <- list(c("condition","ELEV2020","lt",500), c("change", "140CC", "st", 181))
  path <- tempfile(fileext = ".zip")

  # Check for required arguments
  expect_error(landfireAPI(aoi = aoi),
               "argument `products` is missing with no default")

  expect_error(landfireAPI(products),
               "argument `aoi` is missing with no default")

  # Check class
  expect_error(landfireAPI(products = c(1,2,3), aoi, path = path),
               "argument `products` must be a character vector")
  expect_error(landfireAPI(products, aoi = list(1,2,3), path = path),
               "argument `aoi` must be a character or numeric vector")
  expect_error(landfireAPI(products, aoi, max_time = TRUE, path = path),
               "argument `max_time` must be numeric")
  expect_error(landfireAPI(products, aoi, verbose = "yes", path = path),
               "argument `verbose` must be logical")
  expect_error(landfireAPI(products, aoi, edit_rule = "edit_rule"),
               "argument `edit_rule` must be a list")

  # Check `aoi` errors
  expect_error(landfireAPI(products, aoi = 100, path = path),
               "argument `aoi` must be between 1 and 79 when using LANDFIRE map zones")
  expect_error(landfireAPI(products, aoi = c(-200, 43, -179, 44), path = path),
               "argument `aoi` must be latitude and longitude in decimal degrees (WGS84) or a LANDFIRE map zone",
               fixed = TRUE)
  expect_error(landfireAPI(products, aoi = c(-123, 43, -124, 44), path = path),
               "argument `aoi` must be ordered `xmin`, `ymin`, `xmax`, `ymax`")
  expect_error(landfireAPI(products, aoi = c(65,66), path = path),
               "argument `aoi` must be vector of coordinates with length == 4 or a single map zone")

  # Check `resolution`
  expect_error(landfireAPI(products, aoi, resolution = 20, path = path),
               "argument `resolution` must be between 30 and 9999 or `NULL`")
  expect_error(landfireAPI(products, aoi, resolution = 10000, path = path),
               "argument `resolution` must be between 30 and 9999 or `NULL`")

  # Check edit_rule arguments
  expect_error(landfireAPI(products, aoi,
                           edit_rule = list(c("wrong","ELEV2020","lt",500), c("change", "140CC", "st", 181))),
               '`edit_rule` operator classes must only be "condition" or "change"')
  expect_error(landfireAPI(products, aoi,
                           edit_rule = list(c("condition","ELEV2020","xx",500), c("change", "140CC", "st", 181))),
               '`edit_rule` conditional operators must be one of "eq","ge","gt","le","lt","ne"')
})


test_that("`landfireAPI()` recognizes failed call", {
  products <-  "NotAProduct"
  aoi <- c("-123.7835", "41.7534", "-123.6352", "41.8042")
  projection <- 123456
  path <- tempfile(fileext = ".zip")

  expect_warning(landfireAPI(products, aoi, projection, path = path),
               "Job Status:  esriJobFailed")
})

test_that("`landfireAPI()` edge cases", {
  products <-  c("ASP2020")
  aoi <- c("-123.65", "41.75", "-123.63", "41.83")
  resolution <- 90
  path <- tempfile(fileext = ".zip")

  # Functions when resolution = 30
  expect_no_error(landfireAPI(products, aoi, resolution = 30, path = path))
})


test_that("`landfireAPI()` works with `getAOI()` and `getZone()`", {
  products <-  c("ASP2020")
  resolution <- 90
  path <- tempfile(fileext = ".zip")

  r <- terra::rast(nrows = 50, ncols = 50,
                   xmin = -2261174.94, xmax = -2247816.36,
                   ymin = 2412704.65, ymax = 2421673.98,
                   crs = terra::crs("epsg:5070"),
                   vals = rnorm(2500))

  aoi <- getAOI(r)
  zone <- getZone("Northern California Coastal Range")


  expect_no_error(landfireAPI(products = products, aoi = aoi,
                              resolution = resolution, path = path))
  expect_no_error(landfireAPI(products = products, aoi = zone,
                              resolution = resolution, path = path))
})


# Tests for .fmt_editrules (internal)

test_that("`.fmt_editrules` correctly formats requests",{
  single_rule <- list(c("condition","ELEV2020","lt",500), c("change", "140CC", "st", 181))
  multi_rule <- list(c("condition","ELEV2020","lt",500), c("change", "140CC", "st", 181),
                    c("condition","ELEV2020","ge",600), c("change", "140CC", "db", 20),
                    c("condition","ELEV2020","eq",550), c("change", "140CC", "st", 0))

  expect_identical(.fmt_editrules(single_rule),
                   "{\"edit\":[{\"condition\":[{\"product\":\"ELEV2020\",\"operator\":\"lt\",\"value\":500}],\"change\":[{\"product\":\"140CC\",\"operator\":\"st\",\"value\":181}]}]}")
  expect_identical(.fmt_editrules(multi_rule),
                   "{\"edit\":[{\"condition\":[{\"product\":\"ELEV2020\",\"operator\":\"lt\",\"value\":500}],\"change\":[{\"product\":\"140CC\",\"operator\":\"st\",\"value\":181}],\"condition\":[{\"product\":\"ELEV2020\",\"operator\":\"ge\",\"value\":600}],\"change\":[{\"product\":\"140CC\",\"operator\":\"db\",\"value\":20}],\"condition\":[{\"product\":\"ELEV2020\",\"operator\":\"eq\",\"value\":550}],\"change\":[{\"product\":\"140CC\",\"operator\":\"st\",\"value\":0}]}]}")
})