adapte test

pierre-lamarche · pierre-lamarche · commit defae039e280 · 2024-12-22T21:44:31.000+01:00
diff --git a/tests/testthat/test_liste_donnees.R b/tests/testthat/test_liste_donnees.R
@@ -23,7 +23,7 @@ test_that("pas de valeurs incongrues", {
 
   # lien (motif, pas existence)
   url_pattern <- "^https://www.insee.fr/fr/statistiques/fichier/\\d{5,}/.+\\.(zip|xls|xlsx)$"
-  api_url_pattern <- "^https://api.insee.fr/entreprises/sirene/sire[nt](/(liensSuccession|nonDiffusibles))?$"
+  api_url_pattern <- "^https://api.insee.fr/entreprises/sirene(/V3.11)?/sire[nt](/(liensSuccession|nonDiffusibles))?$"
   expect_true(
     all(grepl(paste0(url_pattern, "|", api_url_pattern), df_ld$lien))
   )

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ test_that("pas de valeurs incongrues", {`
`23`	`23`
`24`	`24`	`# lien (motif, pas existence)`
`25`	`25`	`url_pattern <- "^https://www.insee.fr/fr/statistiques/fichier/\\d{5,}/.+\\.(zip\|xls\|xlsx)$"`
`26`		`- api_url_pattern <- "^https://api.insee.fr/entreprises/sirene/sire[nt](/(liensSuccession\|nonDiffusibles))?$"`
	`26`	`+ api_url_pattern <- "^https://api.insee.fr/entreprises/sirene(/V3.11)?/sire[nt](/(liensSuccession\|nonDiffusibles))?$"`
`27`	`27`	`expect_true(`
`28`	`28`	`all(grepl(paste0(url_pattern, "\|", api_url_pattern), df_ld$lien))`
`29`	`29`	`)`