diff --git a/tests/testthat/_snaps/8-commenter_champs.md b/tests/testthat/_snaps/8-commenter_champs.md
index 8e264912d59ac933a0b96a81064b3363d7a011cd..cff8b0f0391540448f882d2f8d7b45fbaea76c39 100644
--- a/tests/testthat/_snaps/8-commenter_champs.md
+++ b/tests/testthat/_snaps/8-commenter_champs.md
@@ -14,11 +14,11 @@
user = "test", server = Sys.getenv("server"))
Output
nom_schema nom_table nom_col commentaire
- 1 public test_iris sepal_width libellé de Sepal.Width cc
- 2 public test_iris petal_length libellé de Petal.Length cc
- 3 public test_iris species Commentlibaba !
+ 1 public test_iris sepal_length libellé de Sepal.Length cc
+ 2 public test_iris sepal_width libellé de Sepal.Width cc
+ 3 public test_iris petal_length libellé de Petal.Length cc
4 public test_iris petal_width libellé de Petal.Width cc
- 5 public test_iris sepal_length libellé de Sepal.Length cc
+ 5 public test_iris species Commentlibaba !
# get_table_comments works
@@ -28,25 +28,9 @@
Output
nom_schema nom_table commentaire nom_col
1 public test_iris NA <NA>
- 2 public test_iris libellé de Sepal.Width cc sepal_width
- 3 public test_iris libellé de Petal.Length cc petal_length
- 4 public test_iris Commentlibaba ! species
+ 2 public test_iris libellé de Sepal.Length cc sepal_length
+ 3 public test_iris libellé de Sepal.Width cc sepal_width
+ 4 public test_iris libellé de Petal.Length cc petal_length
5 public test_iris libellé de Petal.Width cc petal_width
- 6 public test_iris libellé de Sepal.Length cc sepal_length
-
-# exporter_table_comments works
-
- Code
- exporter_table_comments(table = "retest_iris", schema = "public", db = "test_datalibaba",
- user = "test", server = Sys.getenv("server"), fichier = fichier_temp, import = TRUE)
- Message
- Export du dictionnaire des variables csv 'C:\Users\edouard.morin\AppData\Local\Temp\RtmpSURFXd\test_exporter_table_comments17cb430ee74f1/comment_iris.csv'.
- Output
- nom_schema nom_table commentaire nom_col
- 1 public retest_iris <NA> <NA>
- 2 public retest_iris libellé de Petal.Length cc Petal.Length
- 3 public retest_iris libellé de Sepal.Width cc Sepal.Width
- 4 public retest_iris libellé de Species cc Species
- 5 public retest_iris libellé de Petal.Width cc Petal.Width
- 6 public retest_iris libellé de Sepal.Length cc Sepal.Length
+ 6 public test_iris Commentlibaba ! species
diff --git a/tests/testthat/test-8-commenter_champs.R b/tests/testthat/test-8-commenter_champs.R
index 7271fd59acfe8c3b651fba864c2a92244e0607b6..adc6e4c6001d6af650810ae68bdb35268cf15926 100644
--- a/tests/testthat/test-8-commenter_champs.R
+++ b/tests/testthat/test-8-commenter_champs.R
@@ -156,7 +156,8 @@ test_that("exporter_table_comments works", {
dir.create(mon_dossier_temp_aleatoire)
fichier_temp <- file.path(mon_dossier_temp_aleatoire, "comment_iris.csv")
- expect_snapshot(exporter_table_comments(table = "retest_iris", schema = "public", db = "test_datalibaba", user = "test", server = Sys.getenv("server"), fichier = fichier_temp, import = TRUE))
+ expect_message(exporter_table_comments(table = "retest_iris", schema = "public", db = "test_datalibaba", user = "test", server = Sys.getenv("server"), fichier = fichier_temp, import = TRUE),
+ "Export du dictionnaire des variables csv")
# On vérifie que le fichier a bien été écrit en sortie
expect_true(file.exists(fichier_temp))