test_that("protomaps_sample_tiles validates region", {
  expect_error(
    protomaps_sample_tiles(region = "invalid"),
    "sf-bay"
  )
})

test_that("protomaps_sample_tiles uses cached file", {
  temp_dir <- tempdir()
  temp_file <- file.path(temp_dir, "protomapr-sample-sf-bay.pmtiles")

  # Create fake cached file
  writeLines("test", temp_file)

  expect_message(
    result <- protomaps_sample_tiles(cache_dir = temp_dir),
    "Using cached"
  )
  expect_equal(result, temp_file)

  # Cleanup
  unlink(temp_file)
})

test_that("protomaps_clear_cache handles missing directory", {
  expect_message(
    protomaps_clear_cache(cache_dir = "/nonexistent/path/12345"),
    "does not exist"
  )
})

test_that("protomaps_clear_cache handles empty cache", {
  temp_dir <- tempdir()
  cache_subdir <- file.path(temp_dir, "protomapr_test_cache")
  dir.create(cache_subdir, showWarnings = FALSE)

  expect_message(
    protomaps_clear_cache(cache_dir = cache_subdir),
    "No cached tiles"
  )

  unlink(cache_subdir, recursive = TRUE)
})

test_that("protomaps_clear_cache removes pmtiles files", {
  temp_dir <- tempdir()
  cache_subdir <- file.path(temp_dir, "protomapr_test_cache2")
  dir.create(cache_subdir, showWarnings = FALSE)

  # Create fake cached files
  writeLines("test1", file.path(cache_subdir, "test1.pmtiles"))
  writeLines("test2", file.path(cache_subdir, "test2.pmtiles"))
  writeLines("keep", file.path(cache_subdir, "other.txt"))

  result <- expect_message(
    protomaps_clear_cache(cache_dir = cache_subdir),
    "Removed 2"
  )

  # Check pmtiles removed but other file kept
  expect_false(file.exists(file.path(cache_subdir, "test1.pmtiles")))
  expect_true(file.exists(file.path(cache_subdir, "other.txt")))

  unlink(cache_subdir, recursive = TRUE)
})