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

Création des tests pour fix_encoding_variable()

parent 4f3b2548
Branches
Tags
3 merge requests!67Passage en version 0.1.6,!66Intégration de la fonction download_files_from_list(),!65Correction d'un bug + création des tests pour fix_encoding_variable()
Pipeline #537642 passed with warnings
...@@ -80,6 +80,7 @@ usethis::use_r("close_all_connections") ...@@ -80,6 +80,7 @@ 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("download_and_extract_wfs")
usethis::use_r("fix_encoding_variable")
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")
...@@ -104,6 +105,7 @@ usethis::use_test("close_all_connections") ...@@ -104,6 +105,7 @@ 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("download_and_extract_wfs")
usethis::use_test("fix_encoding_variable")
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("fix_encoding_variable works", {
# Création d'un dataframe d'exemple avec encodage ISO-8859-1
data_test <- data.frame(
id = 1:3,
libelle = c("Établissement A", "Forêt B", "Île C"),
stringsAsFactors = FALSE
)
# Simuler un encodage ISO-8859-1
data_test$libelle <- iconv(data_test$libelle, from = "UTF-8", to = "ISO-8859-1")
# Vérification avant correction
# expect_true(all(Encoding(data_test$libelle) == "latin1"))
# Application de la correction
data_test_corrige <- fix_encoding_variable(data_test, "libelle")
# Vérification après correction
expect_true(all(Encoding(data_test_corrige$libelle) == "UTF-8"))
# Vérification du contenu inchangé
expect_equal(data_test_corrige$libelle, c("Établissement A", "Forêt B", "Île C"))
})
test_that("fix_encoding_variable fails", {
data_test <- data.frame(id = 1:3, nom = c("A", "B", "C"))
# Vérifie que la fonction renvoie une erreur
expect_error(fix_encoding_variable(data_test, "libelle"),
"La variable libelle n'existe pas dans le dataframe.")
})
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment