tests/testthat/test-echantillonage.R

In legiretraite: Recueil De Paramètres Législatifs et Réglementaires Sur Les Retraites Françaises

# Tests de echantillonage()

test_that("echantillonage() format long snapshot", {
  res <- echantillonage(enquete = "EIR_2016", format = "long")
  expect_s3_class(res, "data.table")
  expect_named(res, c("enquete", "jour_de_naissance"))
  expect_snapshot_value(as.data.frame(res), style = "json2", cran = TRUE)
})

test_that("echantillonage() format large snapshot", {
  res <- echantillonage(enquete = c("EIR_2016", "EIC_2017"), format = "large")
  expect_snapshot_value(as.data.frame(res), style = "json2", cran = TRUE)
})

test_that("echantillonage() erreur sur enquête inconnue", {
  expect_error(echantillonage(enquete = "EIR_2099"), "inconnues")
})