test_that("download_item() throws errors for invalid release argument values", {
  with_mocked_bindings(
    get_trud_api_key = function(...) NULL,
    expect_error(
      download_item(394, release = 1),
      "Argument `release` must be a string"
    )
  )

  with_mocked_bindings(
    get_item_metadata = function(...) {
      list(
        apiVersion = "",
        releases = list(item1 = list(id = "id1"), item2 = list(id = "id2")),
        httpStatus = 200,
        message = "OK"
      )
    },
    get_trud_api_key = function(...) NULL,
    code = {
      expect_error(
        download_item(394, release = "invalid_release_arg"),
        class = "unrecognised_trud_item_release"
      )
    }
  )
})

test_that("download_item() warns when attempting to download file that already exists locally", {
  temp_dir <- withr::local_tempdir()
  archiveFileName <- "download_file.txt"

  # Create the file in the temp directory
  file.create(file.path(temp_dir, archiveFileName))

  with_mocked_bindings(
    get_item_metadata = function(...) {
      list(
        apiVersion = "",
        releases = list(
          item1 = list(id = "item1", archiveFileName = archiveFileName),
          item2 = list(id = "item2")
        ),
        httpStatus = 200,
        message = "OK"
      )
    },
    request_download_item = function(url, file_path) {
      # Return a proper httr2 response-like structure
      structure(list(body = file_path), class = "httr2_response")
    },
    get_trud_api_key = function(...) NULL,
    code = {
      expect_warning(
        download_item(394, release = "item1", directory = temp_dir),
        "Skipping download"
      )
    }
  )
})

test_that("download_item() downloads file and warns when file already exists. Requires TRUD API key with subscription to item 394", {
  temp_dir <- withr::local_tempdir()
  archiveFileName_unique <- basename(tempfile())
  archiveFileName_unique_path <- file.path(temp_dir, archiveFileName_unique)

  with_mocked_bindings(
    get_trud_api_key = function(...) NULL,
    get_item_metadata = function(...) {
      list(
        apiVersion = "",
        releases = list(
          item1 = list(
            id = "item1",
            archiveFileName = basename(archiveFileName_unique)
          ),
          item2 = list(id = "item2")
        ),
        httpStatus = 200,
        message = "OK"
      )
    },
    request_download_item = function(url, file_path) {
      # Return a proper httr2 response-like structure
      structure(list(body = file_path), class = "httr2_response")
    },
    code = {
      expect_equal(
        # suppress warning raised by normalizePath() saying that file does not exist
        suppressWarnings(download_item(
          394,
          release = "item1",
          directory = temp_dir
        )),
        normalizePath(archiveFileName_unique_path, mustWork = FALSE)
      )
    }
  )

  # Run the following only if online and TRUD API key is available
  skip_if_offline()
  skip_if(condition = identical(Sys.getenv("TRUD_API_KEY"), ""))
  skip_if(condition = identical(Sys.getenv("PKG_CHECK"), "true")) # see pkgcheck.yaml

  temp_dir <- withr::local_tempdir()

  x <- tryCatch(
    download_item(394, directory = temp_dir),
    httr2_http_404 = \(cnd) "NOT_SUBSCRIBED"
  )

  skip_if(
    condition = identical(x, "NOT_SUBSCRIBED"),
    message = "Skipping tests - valid TRUD API key detected, but this account is not subscribed to item 394 ('Community Services Data Set pre-deadline extract XML Schema'). Subscribe at: https://isd.digital.nhs.uk/trud/users/guest/filters/0/categories/1/items/394/releases"
  )

  expect_true(file.exists(x))

  expect_warning(
    download_item(394, directory = temp_dir),
    "already exists in directory"
  )
})

test_that("download_item() respects overwrite parameter", {
  # Test validation of overwrite parameter
  with_mocked_bindings(
    get_trud_api_key = function(...) NULL,
    expect_error(
      download_item(394, overwrite = "invalid"),
      "Argument `overwrite` must be either `TRUE` or `FALSE`"
    )
  )
})