test_that("starter benchmark and minimal pairs are available offline", {
  b <- officialstat_benchmark()
  expect_gte(nrow(b), 20)
  expect_true(all(c("item_id", "level", "critical_dimension") %in% names(b)))
  ref <- stat_reference(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO")
  mp <- statistical_minimal_pairs(ref)
  expect_equal(nrow(mp), 6)
  battery <- benchmark_from_reference(ref)
  expect_true(all(c("red_team", "minimal_pairs") %in% names(battery)))
})

test_that("revision propagation lag supports censoring", {
  x <- revision_propagation_lag("2026-01-01", "2026-01-11", observed_at = "2026-01-11")
  expect_equal(x$lag_days, 10)
  expect_false(x$right_censored)
  y <- revision_propagation_lag("2026-01-01", observed_at = "2026-01-06")
  expect_equal(y$lag_days, 5)
  expect_true(y$right_censored)
})