Test avec une version simplifiée de expect_error()

tests/testthat/test-archive_table.R

@@ -21,17 +21,11 @@ test_that("archive_table works", {
                            table = "dummy", role = "runner"),
     expected = paste0("zz_archives.dummy_", archive_datetime))
 
-  # Mock de la fonction table_exists pour simuler l'absence de la table
-  mockery::stub(archive_table, "table_exists", function(...) FALSE)
-
   # Vérification qu'une erreur est retournée en cas d'absence de la table à archiver
-  mockr::local_mock(
-    table_exists = function(...) FALSE  # Mock pour simuler une table inexistante
-  )
   expect_error(
     archive_table(host = "localhost", database = "collectr",
-                  schema = "public",table = "ghost", role = "runner"),
-    regexp = "La table spécifiée n'existe pas dans la base de données."
+                  schema = "public", table = "ghost", role = "runner"),
+    regexp = "La table sp\u00e9cifi\u00e9e n\'existe pas dans la base de donn\u00e9es."
   )
 
 })