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

Création des tests pour la fonction

parent f710c50a
Branches
Tags
1 merge request!55Création des tests pour import_shapefile()
test_that("modify_column_type works", {
Sys.setenv(user_runner="runner")
Sys.setenv(pwd_runner=Sys.getenv("BDD_RUNNER_PWD"))
# Création d'une table dummy
create_dummy(host = "localhost",
database = "collectr",
schema = "public",
table = "dummy",
role = "runner")
# Vérification que la fonction retourne TRUE si le changement de type fonctionne
expect_equal(object = modify_column_type(host = "localhost",
database = "collectr",
schema = "public",
table = "dummy",
column_name = "birthdate",
column_type = "date",
role = "runner"),
expected = TRUE
)
# Vérification du message retourné en cas d'absence de la table à modifier
expect_message(object = table_exists(host = "localhost",
database = "collectr", schema = "public",
table = "ghost", role = "runner"),
message = "La table sp\u00e9cifi\u00e9e n\'existe pas dans la base de donn\u00e9es.")
})
test_that("modify_column_type fails", {
skip_on_ci()
# Simulation d'une connexion invalide (NULL ou autre type)
fake_connexion <- list() # Une liste vide ne correspond pas à un objet PostgreSQLConnection
# Mock de la fonction connect_to_db pour retourner une connexion invalide
mockery::stub(modify_column_type, "datalibaba::connect_to_db", fake_connexion)
# Vérification que la fonction génère bien une erreur sur la connexion invalide
expect_error(
modify_column_type(database, schema, table, column_name, column_type, role),
"La connexion fournie n\'est pas une connexion PostgreSQL valide."
)
})
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment