test(Logger): Check that catalog is witten on backends that support it

ssi-dk · Jul 26, 2024 · 37c4406 · 37c4406
1 parent a3eaffc
commit 37c4406
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/testthat/test-Logger.R b/tests/testthat/test-Logger.R
@@ -189,6 +189,9 @@ test_that("Logger: logging to database works", {
     # Test Logger has pre-filled some information in the logs
     db_table_id <- id(db_table, conn)
     expect_identical(as.character(dplyr::pull(log_table_id, "date")), timestamp)
+    if ("catalog" %in% purrr::pluck(db_table_id, "name", names)) {
+      expect_identical(dplyr::pull(log_table_id, "catalog"), purrr::pluck(db_table_id, "name", "catalog"))
+    }
     expect_identical(dplyr::pull(log_table_id, "schema"), purrr::pluck(db_table_id, "name", "schema"))
     expect_identical(dplyr::pull(log_table_id, "table"), purrr::pluck(db_table_id, "name", "table"))
     expect_identical( # Transferring start_time to database can have some loss of information that we need to match