Switch to a non snapshot based test

Author: DavisVaughan

tests/testthat/_snaps/across.md

@@ -295,19 +295,6 @@
       Caused by error:
       ! Can't subset `.data` outside of a data mask context.
 
-# expand_if_across() expands lambdas
-
-    Code
-      quo_squash(expand_if_across(quo))
-    Output
-      {
-          x <- list(cyl = cyl > 4, am = am > 4)
-          ns <- asNamespace("dplyr")
-          size <- ns[["dplyr_list_size_common"]](x, absent = 1L, call = call("if_any"))
-          x <- ns[["dplyr_list_recycle_common"]](x, size = size, call = call("if_any"))
-          ns[["dplyr_list_pany"]](x, size = size, error_call = call("if_any"))
-      }
-
 # `across()` recycle `.fns` results to common size
 
     Code

tests/testthat/test-across.R

@@ -1246,9 +1246,17 @@ test_that("expand_if_across() expands lambdas", {
   by <- compute_by(by = NULL, data = mtcars, error_call = call("caller"))
   DataMask$new(mtcars, by, "mutate", call("caller"))
 
-  expect_snapshot({
-    quo_squash(expand_if_across(quo))
-  })
+  quo <- expand_if_across(quo)
+
+  # We just need to look for something we know we insert into the expression.
+  # `expect_snapshot()` doesn't seem to play nicely with covr on CI here, the
+  # expression captured seems to contain `covr:::count()` calls.
+  expect_true(
+    grepl(
+      "asNamespace",
+      paste0(expr_deparse(quo_squash(quo)), collapse = " ")
+    )
+  )
 })
 
 test_that("rowwise() preserves list-cols iff no `.fns` (#5951, #6264)", {