test_that("read_nlum_stars returns a stars object when x is provided", {
  skip_on_os("windows") # Skip due to intermittent vsizip issues on Windows CI
  zipfile <- test_path("testdata", "test_nlum.zip")

  fake_get_lum_files <- function(x, data_set, lum) {
    list(file_path = zipfile, tiff = "nlum_test.tif")
  }

  with_mocked_bindings(
    result <- read_nlum_stars(x = zipfile, data_set = NULL),
    .get_lum_files = fake_get_lum_files
  )
  expect_s3_class(result, "stars")
  expect_identical(unname(dim(result)), c(2L, 2L))
})

test_that("read_nlum_stars works with mocked .get_lum_files and data_set", {
  skip_on_os("windows") # Skip due to intermittent vsizip issues on Windows CI
  zipfile <- test_path("testdata", "test_nlum.zip")

  fake_get_lum_files <- function(x, data_set, lum) {
    list(file_path = zipfile, tiff = "nlum_test.tif")
  }

  with_mocked_bindings(
    result <- read_nlum_stars(data_set = "nlum_2023"),
    .get_lum_files = fake_get_lum_files
  )
  expect_s3_class(result, "stars")
})

test_that("read_nlum_stars propagates errors from .get_lum_files", {
  fake_get_lum_files <- function(x, data_set, lum) {
    cli::cli_abort("fake error")
  }
  expect_error(
    with_mocked_bindings(
      read_nlum_stars(data_set = "nlum_2023"),
      .get_lum_files = fake_get_lum_files
    ),
    "fake error"
  )
})

test_that("read_nlum_stars passes ...  to stars::read_stars", {
  skip_on_os("windows") # Skip due to intermittent vsizip issues on Windows CI
  zipfile <- test_path("testdata", "test_nlum.zip")

  fake_get_lum_files <- function(x, data_set, lum) {
    list(file_path = zipfile, tiff = "nlum_test.tif")
  }

  with_mocked_bindings(
    result <- read_nlum_stars(data_set = "nlum_2023", proxy = TRUE),
    .get_lum_files = fake_get_lum_files
  )
  expect_s3_class(result, "stars_proxy")
})

## Tests for read_nlum_terra
test_that("read_nlum_terra returns a SpatRaster when x is provided", {
  skip_on_os("windows") # Skip due to intermittent vsizip issues on Windows CI
  zipfile <- test_path("testdata", "test_nlum.zip")

  fake_get_lum_files <- function(x, data_set, lum) {
    list(file_path = zipfile, tiff = "nlum_test.tif")
  }

  with_mocked_bindings(
    result <- read_nlum_terra(x = zipfile, data_set = NULL),
    .get_lum_files = fake_get_lum_files
  )
  expect_s4_class(result, "SpatRaster")
  expect_identical(dim(result), c(2, 2, 1))
})

test_that("read_nlum_terra works with mocked .get_lum_files and data_set", {
  skip_on_os("windows") # Skip due to intermittent vsizip issues on Windows CI
  zipfile <- test_path("testdata", "test_nlum.zip")

  fake_get_lum_files <- function(x, data_set, lum) {
    list(file_path = zipfile, tiff = "nlum_test.tif")
  }

  with_mocked_bindings(
    result <- read_nlum_terra(data_set = "nlum_2023"),
    .get_lum_files = fake_get_lum_files
  )
  expect_s4_class(result, "SpatRaster")
  expect_identical(terra::nlyr(result), 1)
})

test_that("read_nlum_terra propagates errors from .get_lum_files", {
  fake_get_lum_files <- function(x, data_set, lum) {
    cli::cli_abort("fake error")
  }
  expect_error(
    with_mocked_bindings(
      read_nlum_terra(data_set = "nlum_2023"),
      .get_lum_files = fake_get_lum_files
    ),
    "fake error"
  )
})