chore: Adapt to current testthat

Author: krlmlr

tests/testthat/_snaps/deconstruct.md

@@ -251,64 +251,64 @@
     Code
       tbl_sum(keyed_tbl_impl(dm_output, "d1"))
     Output
-                                 Keys 
-      "`origin`, `time_hour` | 0 | 0" 
+                             A tibble                            Keys 
+                           "144 x 15" "`origin`, `time_hour` | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(dm_output, "d2"))
     Output
-                 Keys 
-      "`faa` | 0 | 0" 
+             A tibble            Keys 
+             "86 x 8" "`faa` | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(new_dm_output, "d1"))
     Output
-                                 Keys 
-      "`origin`, `time_hour` | 0 | 0" 
+                             A tibble                            Keys 
+                           "144 x 15" "`origin`, `time_hour` | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(new_dm_output, "d2"))
     Output
-                 Keys 
-      "`faa` | 0 | 0" 
+             A tibble            Keys 
+             "86 x 8" "`faa` | 0 | 0" 
 
 # `dm()` and `new_dm()` can handle a mix of tables and `dm_keyed_tbl` objects
 
     Code
       tbl_sum(keyed_tbl_impl(dm_output, "d1"))
     Output
-                                 Keys 
-      "`origin`, `time_hour` | 0 | 0" 
+                             A tibble                            Keys 
+                           "144 x 15" "`origin`, `time_hour` | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(dm_output, "d2"))
     Output
-               Keys 
-      "--- | 0 | 0" 
+           A tibble          Keys 
+           "86 x 8" "--- | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(new_dm_output, "d1"))
     Output
-                                 Keys 
-      "`origin`, `time_hour` | 0 | 0" 
+                             A tibble                            Keys 
+                           "144 x 15" "`origin`, `time_hour` | 0 | 0" 
 
 ---
 
     Code
       tbl_sum(keyed_tbl_impl(new_dm_output, "d2"))
     Output
-               Keys 
-      "--- | 0 | 0" 
+           A tibble          Keys 
+           "86 x 8" "--- | 0 | 0" 
 
 # `dm()` handles missing key column names gracefully
 

tests/testthat/_snaps/zoom.md

@@ -3,16 +3,16 @@
     Code
       dm_for_filter() %>% dm_zoom_to(tf_5) %>% as_dm_zoomed_df() %>% tbl_sum()
     Output
-      Zoomed table 
-            "tf_5" 
+      Zoomed table     A tibble 
+            "tf_5"      "4 x 4" 
 
 ---
 
     Code
       dm_for_filter() %>% dm_zoom_to(tf_2) %>% as_dm_zoomed_df() %>% tbl_sum()
     Output
-      Zoomed table 
-            "tf_2" 
+      Zoomed table     A tibble 
+            "tf_2"      "6 x 4" 
 
 # zoom output for compound keys
 

tests/testthat/helper-print.R

@@ -9,3 +9,12 @@ local_options(
   pillar.bold = NULL,
   .frame = teardown_env()
 )
+
+if (rlang::is_installed("dbplyr")) {
+  local_mocked_bindings(
+    tbl_sum.tbl_sql = function(x, ...) c(),
+    tbl_format_header.tbl_sql = function(x, ...) invisible(),
+    .package = "dbplyr",
+    .env = teardown_env()
+  )
+}