test_that("pfw_attr returns filter attributes correctly", {
  test_data <- data.frame(
    SPECIES_CODE = c("amerob", "norcar"),
    SUBNATIONAL1_CODE = c("US-WA", "US-CA"),
    Year = c(2022, 2023),
    Month = c(11, 2),
    Day = c(15, 15),
    VALID = c(1, 1),
    REVIEWED = c(1, 0)
  )

  # Add some fake filters manually
  attr(test_data, "pfw_filters") <- list(
    list(type = "species", value = "american robin"),
    list(type = "region", value = "Washington"),
    list(type = "date", value = list(year = 2022:2023, month = c(11, 12, 1, 2))),
    list(type = "rollup", value = TRUE)
  )

  result <- pfw_attr(test_data)

  # Check result is a list and has expected structure
  expect_type(result, "list")
  expect_true(all(vapply(result, function(x) all(c("type", "value") %in% names(x)), logical(1))))
  expect_true(any(vapply(result, function(x) x$type == "species", logical(1))))
  expect_true(any(vapply(result, function(x) x$type == "date", logical(1))))
})

test_that("pfw_attr handles no filters correctly", {
  test_data <- data.frame(
    SPECIES_CODE = character(),
    SUBNATIONAL1_CODE = character(),
    Year = integer(),
    Month = integer(),
    Day = integer(),
    VALID = integer(),
    REVIEWED = integer()
  )

  # No filters attribute
  expect_message(
    expect_invisible(pfw_attr(test_data)),
    "No filters found on this dataset."
  )
})