test_that("omitted context warns but contradictory population fails", {
  ref <- stat_reference(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO",
                        dataset = "LFS", population = "labour force", adjustment = "seasonally adjusted")
  omitted <- stat_claim(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO")
  a1 <- context_audit(ref, omitted)
  expect_false(a1$critical)
  expect_lt(a1$score, 1)
  wrong <- stat_claim(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO",
                      dataset = "LFS", population = "total population", adjustment = "seasonally adjusted")
  a2 <- context_audit(ref, wrong)
  expect_true(a2$critical)
  expect_equal(a2$score, 0)
})

test_that("context component participates in full audit", {
  ref <- stat_reference(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO",
                        dataset = "LFS")
  clm <- stat_claim(5.1, "unemployment rate", "Exampleland", "2025", "percent", "NSO",
                    dataset = "Wrong dataset")
  aud <- audit_stat_ai(ref, clm)
  expect_true("context" %in% names(aud$components))
  expect_equal(aud$certification, "FAIL")
})