corrige tests

Author: pierre-lamarche

tests/testthat/test_telechargerDonnees.R

@@ -71,7 +71,7 @@ test_that("Importation type XLSX - output data.frame", {
 })
 ## test sélection des variables
 test_that("Sélection de variables dans la BPE", {
-  expect_true(length(names(telechargerDonnees(donnees = "BPE_ENS", vars = c("REG", "DEP", "DEPCOM", "NB_EQUIP")))) == 4)
+  expect_true(length(names(telechargerDonnees(donnees = "BPE_ENS", vars = c("GEO", "GEO_OBJECT", "FACILITY_TYPE", "OBS_VALUE")))) == 4)
 })
 ## test dézip gros fichiers
 test_that("Utilisation de unzip système", {

tests/testthat/test_telechargerFichier.R

@@ -27,7 +27,7 @@ test_that("Échec du téléchargement pour nom non existant", {
 ## spécification du dossier de stockage
 test_that("Spécification du dossier de stockage", {
   dl <- telechargerFichier("BPE_ENS", telDir = "test_dl")
-  expect_true(file.exists("test_dl/bpe19_ensemble_csv.zip"))
+  expect_true(file.exists("test_dl/DS_BPE_CSV_FR.zip"))
   unlink("test_dl", recursive = TRUE)
 })
 ## test utilisation du cache