Skip to content
Snippets Groups Projects
Commit 729af192 authored by ronan.vignard's avatar ronan.vignard
Browse files

Merge branch 'dev' into 'master'

Ajout des tests pour download_and_extract_wfs()

See merge request !57
parents dc3f8a52 2d2ed291
Branches
Tags
1 merge request!57Ajout des tests pour download_and_extract_wfs()
Pipeline #535855 passed
...@@ -78,6 +78,7 @@ usethis::use_r("archive_table") ...@@ -78,6 +78,7 @@ usethis::use_r("archive_table")
usethis::use_r("close_all_connections") usethis::use_r("close_all_connections")
usethis::use_r("create_dummy") usethis::use_r("create_dummy")
usethis::use_r("create_schema") usethis::use_r("create_schema")
usethis::use_r("download_and_extract_wfs")
usethis::use_r("format_colnames") usethis::use_r("format_colnames")
usethis::use_r("format_filepath") usethis::use_r("format_filepath")
usethis::use_r("get_variable_completion_rate") usethis::use_r("get_variable_completion_rate")
...@@ -96,6 +97,7 @@ usethis::use_test("archive_table") ...@@ -96,6 +97,7 @@ usethis::use_test("archive_table")
usethis::use_test("close_all_connections") usethis::use_test("close_all_connections")
usethis::use_test("create_dummy") usethis::use_test("create_dummy")
usethis::use_test("create_schema") usethis::use_test("create_schema")
usethis::use_test("download_and_extract_wfs")
usethis::use_test("format_colnames") usethis::use_test("format_colnames")
usethis::use_test("format_filepath") usethis::use_test("format_filepath")
usethis::use_test("get_variable_completion_rate") usethis::use_test("get_variable_completion_rate")
......
test_that("download_and_extract_wfs works", {
url_wfs <- paste0(
"https://services.sandre.eaufrance.fr/geo/obs?",
"SERVICE=WFS&",
"VERSION=2.0.0&",
"REQUEST=GetFeature&",
"typename=ObstEcoul_GUF&",
"SRSNAME=EPSG:4326&",
"OUTPUTFORMAT=SHAPEZIP"
)
# Appel de la fonction avec une extension valide
result <- download_and_extract_wfs(url_wfs, "shp")
# Vérification que le fichier extrait existe bien
expect_true(file.exists(result))
# Vérification que l'extension du fichier est correcte
expect_match(result, "\\.shp$")
# Vérification qu'une erreur est levée
expect_error(object = download_and_extract_wfs(url_wfs, "gpkg"),
regexp = "Le fichier avec l\'extension gpkg n\'a pas \u00e9t\u00e9 trouv\u00e9 dans le dossier temporaire.")
})
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment