test_that("pfw_example dataset loads correctly", {
  skip_on_cran()

  data("pfw_example", package = "PFW")
  expect_true(is.data.frame(pfw_example))
  expect_gt(nrow(pfw_example), 0)
  expect_true(all(c("SPECIES_CODE", "Year", "Month") %in% names(pfw_example)))
})