canelevation_fixture <- function(url) {
  poly <- sf::st_sfc(sf::st_polygon(list(matrix(c(-113.5,54.5, -113.4,54.5, -113.4,54.6, -113.5,54.6, -113.5,54.5), ncol=2, byrow=TRUE))), crs=4326)
  sf::st_sf(url=url, geometry=poly)
}

test_that("CanElevation repairs crossing rings in the official regional index", {
  # Natural Resources Canada / Government of Alberta, Athabasca_2018 tile
  # geometry; Open Government Licence Canada. Retrieved 2026-09-19 from the
  # official LiDAR Tiles ArcGIS service. Geometry only; no point data.
  wkt <- readLines(test_path("fixtures", "canada-crossing-ring.wkt"))
  x <- sf::st_sf(url="https://canelevation-lidar-point-clouds.s3.ca-central-1.amazonaws.com/tile.copc.laz",
    geometry=sf::st_as_sfc(wkt,crs=4326))
  folder<-tempfile();dir.create(folder);on.exit(unlink(folder,recursive=TRUE))
  sf::st_write(x,file.path(folder,"Athabasca.gpkg"),quiet=TRUE)
  aoi<-sf::st_as_sfc(sf::st_bbox(c(xmin=-113.30,ymin=54.71,xmax=-113.28,ymax=54.74),crs=4326))
  found<-find_tiles(aoi,"canelevation",tile_index_dir=folder)
  expect_equal(nrow(found),1L)
  expect_true(all(sf::st_is_valid(found)))
})

test_that("CanElevation local index selects public-bucket assets within the AOI", {
  folder <- tempfile(); dir.create(folder); on.exit(unlink(folder, recursive=TRUE))
  x <- canelevation_fixture("https://canelevation-lidar-point-clouds.s3.ca-central-1.amazonaws.com/pointclouds_nuagespoints/AB/Athabasca_2018/pc_083I11NE41NE_20181006.copc.laz")
  sf::st_write(x, file.path(folder, "Athabasca_2018.gpkg"), quiet=TRUE)
  aoi <- sf::st_as_sfc(sf::st_bbox(c(xmin=-113.5,ymin=54.5,xmax=-113.4,ymax=54.6),crs=4326))
  found <- find_tiles(aoi, "canelevation", tile_index_dir=folder)
  expect_equal(nrow(found), 1L)
  expect_equal(found$provider, "canelevation")
  expect_equal(found$dataset, "Athabasca_2018")
  expect_match(found$url, "canelevation-lidar-point-clouds.s3.ca-central-1.amazonaws.com", fixed=TRUE)
  expect_match(found$license_url, "open.canada.ca", fixed=TRUE)
  expect_match(found$citation, "Natural Resources Canada", fixed=TRUE)

  away <- sf::st_as_sfc(sf::st_bbox(c(xmin=0,ymin=0,xmax=1,ymax=1),crs=4326))
  expect_equal(nrow(find_tiles(away, "canelevation", tile_index_dir=folder)), 0L)
})

test_that("CanElevation rejects assets outside the confirmed public bucket", {
  folder <- tempfile(); dir.create(folder); on.exit(unlink(folder, recursive=TRUE))
  x <- canelevation_fixture("https://evil.example/pc_083I11NE41NE_20181006.copc.laz")
  sf::st_write(x, file.path(folder, "Athabasca_2018.gpkg"), quiet=TRUE)
  aoi <- sf::st_as_sfc(sf::st_bbox(c(xmin=-113.5,ymin=54.5,xmax=-113.4,ymax=54.6),crs=4326))
  expect_error(find_tiles(aoi, "canelevation", tile_index_dir=folder), "Unexpected CanElevation")
})

test_that("CanElevation skips areas outside Canada and checks supplied index fields", {
  expect_equal(nrow(search_canelevation(sf::st_as_sfc(sf::st_bbox(c(xmin=0,ymin=0,xmax=1,ymax=1),crs=4326)), NULL, 10L)),0L)
  folder <- tempfile(); dir.create(folder); on.exit(unlink(folder, recursive=TRUE))
  poly <- sf::st_sfc(sf::st_polygon(list(matrix(c(-113.5,54.5, -113.4,54.5, -113.4,54.6, -113.5,54.6, -113.5,54.5), ncol=2, byrow=TRUE))), crs=4326)
  sf::st_write(sf::st_sf(name="x", geometry=poly), file.path(folder, "no_url.gpkg"), quiet=TRUE)
  aoi <- sf::st_as_sfc(sf::st_bbox(c(xmin=-113.5,ymin=54.5,xmax=-113.4,ymax=54.6),crs=4326))
  expect_error(find_tiles(aoi, "canelevation", tile_index_dir=folder), "URL field")
})

test_that("Canada online search preserves provenance and refuses partial responses", {
  aoi <- sf::st_as_sfc(sf::st_bbox(c(xmin=-113.5,ymin=54.5,xmax=-113.4,ymax=54.6),crs=4326))
  feature <- list(type="Feature",properties=list(OBJECTID=12,project="Regional survey",provider="Survey agency",tile_name="tile",
    url="https://canelevation-lidar-point-clouds.s3.ca-central-1.amazonaws.com/pointclouds_nuagespoints/AB/tile.copc.laz"),
    geometry=list(type="Polygon",coordinates=list(list(c(-113.5,54.5),c(-113.4,54.5),c(-113.4,54.6),c(-113.5,54.6),c(-113.5,54.5)))))
  page <- list(type="FeatureCollection",features=list(feature))
  local_mocked_bindings(request_json=function(url,body=NULL,query=NULL) {
    if(identical(query$returnIdsOnly,"true")) list(objectIdFieldName="OBJECTID",objectIds=list(12L)) else page
  })
  x <- search_canelevation_online(aoi,10L)
  expect_equal(nrow(x),1L)
  expect_match(x$citation,"Survey agency")
  expect_true(is.na(x$acquired_start))
  page$exceededTransferLimit <- TRUE
  expect_error(search_canelevation_online(aoi,10L),"incomplete")
  page$exceededTransferLimit <- FALSE
  page$features[[1]]$properties$OBJECTID <- 99
  expect_error(search_canelevation_online(aoi,10L),"mismatched")
})

test_that("Canada online search checks tile counts before fetching features", {
  aoi <- sf::st_as_sfc(sf::st_bbox(c(xmin=-113.5,ymin=54.5,xmax=-113.4,ymax=54.6),crs=4326))
  local_mocked_bindings(request_json=function(...)list(objectIdFieldName="OBJECTID",objectIds=as.list(1:3)))
  expect_error(search_canelevation_online(aoi,2L),"max_items")
})