update snapshot test

Author: edward-burn

tests/testthat/_snaps/backend-mssql.md

@@ -500,7 +500,7 @@
 # count_big
 
     Code
-      dplyr::count(mf)
+      count(mf)
     Output
       <SQL>
       SELECT COUNT_BIG(*) AS `n`
@@ -509,26 +509,12 @@
 ---
 
     Code
-      dplyr::tally(mf)
+      tally(mf)
     Output
       <SQL>
       SELECT COUNT_BIG(*) AS `n`
       FROM `df`
 
-# can copy_to() and compute() with temporary tables (#438)
-
-    Code
-      db <- copy_to(con, df, name = unique_table_name(), temporary = TRUE)
-    Message
-      Created a temporary table named #dbplyr_{tmp}
-
----
-
-    Code
-      db2 <- db %>% mutate(y = x + 1) %>% compute()
-    Message
-      Created a temporary table named #dbplyr_{tmp}
-
 # add prefix to temporary table
 
     Code

tests/testthat/test-backend-mssql.R

@@ -400,6 +400,12 @@ test_that("row_number() with and without group_by() and arrange(): unordered def
   expect_snapshot(mf %>% arrange(y) %>% mutate(rown = row_number()))
 })
 
+test_that("count_big", {
+  mf <- lazy_frame(x = c(1:5), y = c(rep("A", 5)), con = simulate_mssql())
+  expect_snapshot(count(mf))
+  expect_snapshot(tally(mf))
+})
+
 # Live database -----------------------------------------------------------
 
 test_that("can copy_to() and compute() with temporary tables (#438)", {