feat: Allow multiple warnings in disconnect tests

r-dbi · Mar 30, 2024 · 3378950 · 3378950
1 parent beef089
commit 3378950
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/spec-connection-disconnect.R b/R/spec-connection-disconnect.R
@@ -23,14 +23,14 @@ spec_connection_disconnect <- list(
   #' but this cannot be tested automatically.
 
   disconnect_closed_connection = function(ctx, closed_con) {
-    #' A warning is issued immediately when calling `dbDisconnect()` on an
+    #' At least one warning is issued immediately when calling `dbDisconnect()` on an
     #' already disconnected
-    expect_warning(dbDisconnect(closed_con))
+    suppressWarnings(expect_warning(dbDisconnect(closed_con)))
   },
 
   disconnect_invalid_connection = function(ctx, invalid_con) {
     #' or invalid connection.
-    expect_warning(dbDisconnect(invalid_con))
+    suppressWarnings(expect_warning(dbDisconnect(invalid_con)))
   },
   #
   NULL

diff --git a/man/spec_connection_disconnect.Rd b/man/spec_connection_disconnect.Rd