tests/testthat.R

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

library(testthat)
library(legiretraite)

# Le job CI run_tests_unitaires définit LEGIRETRAITE_JUNIT pour activer un
# reporter JUnit : GitLab affiche alors le détail des tests (onglet "Tests"),
# y compris sur un run rouge (JunitReporter écrit junit.xml avant le
# stop_on_failure). Partout ailleurs — exécution locale, R CMD check, CRAN
# (variable absente) — on garde le comportement standard.
reporter <- if (nzchar(Sys.getenv("LEGIRETRAITE_JUNIT"))) {
  out_dir <- Sys.getenv("CI_PROJECT_DIR", unset = getwd())
  MultiReporter$new(reporters = list(
    ProgressReporter$new(),
    JunitReporter$new(file = file.path(out_dir, "junit.xml"))
  ))
} else {
  check_reporter()
}

test_check("legiretraite", reporter = reporter)