Remove and update legacy tests

rstudio · Oct 3, 2024 · d2cd4bc · d2cd4bc
1 parent a3ac1ac
commit d2cd4bc
Show file tree

Hide file tree

Showing 13 changed files with 16 additions and 380 deletions.
diff --git a/tests/testthat/_snaps/legacy_board.md b/tests/testthat/_snaps/legacy_board.md
@@ -4,16 +4,25 @@
       board <- board_temp()
       pin(mtcars, "mtcars", board = board)
     Condition
+      Warning:
+      `pin()` was deprecated in pins 1.4.0.
+      i Please use `pin_write()` instead.
       Error in `board_pin_create()`:
       ! Use `pin_write()` with this board, not `pin()`
     Code
       pin_get("mtcars", board = board)
     Condition
+      Warning:
+      `pin_get()` was deprecated in pins 1.4.0.
+      i Please use `pin_read()` instead.
       Error in `board_pin_get()`:
       ! Use `pin_read()` with this board, not `pin_get()`
     Code
       pin_find("mtcars", board = board)
     Condition
+      Warning:
+      `pin_find()` was deprecated in pins 1.4.0.
+      i Please use `pin_search()` instead.
       Error in `board_pin_find()`:
       ! Use `pin_search()` with this board, not `pin_find()`
     Code

diff --git a/tests/testthat/_snaps/legacy_local.md b/tests/testthat/_snaps/legacy_local.md
diff --git a/tests/testthat/_snaps/pin.md b/tests/testthat/_snaps/pin.md
diff --git a/tests/testthat/_snaps/pin_info.md b/tests/testthat/_snaps/pin_info.md
@@ -48,6 +48,9 @@
       board <- board_temp()
       pin_info("mtcars", board = board)
     Condition
+      Warning:
+      `pin_info()` was deprecated in pins 1.4.0.
+      i Please use `pin_meta()` instead.
       Error in `pin_info()`:
       ! Use `pin_meta()` with this board, not `pin_info()`
 
diff --git a/tests/testthat/test-legacy_azure.R b/tests/testthat/test-legacy_azure.R
diff --git a/tests/testthat/test-legacy_datatxt.R b/tests/testthat/test-legacy_datatxt.R
diff --git a/tests/testthat/test-legacy_gcloud.R b/tests/testthat/test-legacy_gcloud.R
diff --git a/tests/testthat/test-legacy_github.R b/tests/testthat/test-legacy_github.R
diff --git a/tests/testthat/test-legacy_local.R b/tests/testthat/test-legacy_local.R
diff --git a/tests/testthat/test-legacy_packages.R b/tests/testthat/test-legacy_packages.R
@@ -1,4 +1,5 @@
 test_that("can pin_find() package data", {
+  withr::local_options(lifecycle_verbosity = "quiet")
   board <- board_packages()
 
   results <- pin_find(board = board)
@@ -12,12 +13,14 @@ test_that("can pin_find() package data", {
 })
 
 test_that("can retrieve data from a package", {
+  withr::local_options(lifecycle_verbosity = "quiet")
   board <- board_packages()
   data <- pin_get("datasets/AirPassengers", board = board)
   expect_equal(data, datasets::AirPassengers)
 })
 
 test_that("bad pin names give useful errors", {
+  withr::local_options(lifecycle_verbosity = "quiet")
   board <- board_packages()
 
   expect_snapshot(error = TRUE, {

diff --git a/tests/testthat/test-legacy_s3.R b/tests/testthat/test-legacy_s3.R