From e68437f3e98c76765ba90d2573df0b1a83da2438 Mon Sep 17 00:00:00 2001 From: Pierre Lamarche Date: Sat, 21 Dec 2024 15:55:40 +0100 Subject: [PATCH] corrige tests --- tests/testthat/test_telechargerDonnees.R | 2 +- tests/testthat/test_telechargerFichier.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test_telechargerDonnees.R b/tests/testthat/test_telechargerDonnees.R index 64d39d3..a98bd7e 100644 --- a/tests/testthat/test_telechargerDonnees.R +++ b/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", { diff --git a/tests/testthat/test_telechargerFichier.R b/tests/testthat/test_telechargerFichier.R index 50340f3..bf044b4 100644 --- a/tests/testthat/test_telechargerFichier.R +++ b/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