use_testthat(3)

DESCRIPTION

@@ -52,7 +52,7 @@ Suggests:
     methods,
     rmarkdown,
     RSQLite,
-    testthat (>= 2.1.0)
+    testthat (>= 3.0.0)
 VignetteBuilder: 
     knitr
 Encoding: UTF-8
@@ -86,3 +86,4 @@ Collate:
     'torture.R'
     'utils.R'
     'with.R'
+Config/testthat/edition: 3

R/db.R

@@ -25,7 +25,7 @@
 #' unlink(db)
 #' @export
 with_db_connection <- function(con, code) {
-  requireNamespace("DBI")
+  requireNamespace("DBI", quietly = TRUE)
 
   stopifnot(all(is.named(con)))
   stopifnot(all(vlapply(con, methods::is, "DBIConnection")))
@@ -42,7 +42,7 @@ with_db_connection <- function(con, code) {
 #' @rdname with_db_connection
 #' @export
 local_db_connection <- function(con, .local_envir = parent.frame()) {
-  requireNamespace("DBI")
+  requireNamespace("DBI", quietly = TRUE)
   stopifnot(methods::is(con, "DBIConnection"))
 
   defer(DBI::dbDisconnect(con), envir = .local_envir)

tests/testthat/_snaps/defer.md

@@ -0,0 +1,9 @@
+# defer()'s global env facilities work
+
+    Code
+      defer(print("howdy"), envir = globalenv())
+    Message <simpleMessage>
+      Setting deferred event(s) on global environment.
+        * Execute (and clear) with `withr::deferred_run()`.
+        * Clear (without executing) with `withr::deferred_clear()`.
+

tests/testthat/test-connection.R

@@ -1,5 +1,3 @@
-context("connection")
-
 describe("with_connection", {
   it("errors if connection is not named", {
     expect_error({

tests/testthat/test-db.R

@@ -1,5 +1,3 @@
-context("db")
-
 describe("with_db_connection", {
   #it("errors if connection is not named", {
     #expect_error({

tests/testthat/test-defer.R

@@ -1,5 +1,3 @@
-context("defer")
-
 test_that("defer_parent works", {
   local_file <- function(path) {
     file.create(path)
@@ -23,10 +21,7 @@ test_that("defer()'s global env facilities work", {
   expect_null(get_handlers(globalenv()))
   Sys.setenv(abcdefg = "abcdefg")
 
-  expect_message(
-    defer(print("howdy"), envir = globalenv()),
-    "Setting deferred event"
-  )
+  expect_snapshot(defer(print("howdy"), envir = globalenv()))
   expect_message(
     local_envvar(c(abcdefg = "tuvwxyz"), .local_envir = globalenv()),
     NA
@@ -39,7 +34,7 @@ test_that("defer()'s global env facilities work", {
   expect_output(deferred_run(globalenv()), "howdy")
   expect_equal(Sys.getenv("abcdefg"), "abcdefg")
 
-  defer(print("never going to happen"), envir = globalenv())
+  expect_message(defer(print("never going to happen"), envir = globalenv()))
   deferred_clear(globalenv())
 
   h <- get_handlers(globalenv())

tests/testthat/test-devices.R

@@ -1,5 +1,3 @@
-context("devices")
-
 needs_cairo <- function(fn) fn %in% c("with_cairo_pdf", "with_cairo_ps", "with_svg", "local_cairo_pdf", "local_cairo_ps", "local_svg")
 skip_if_needs_cairo <- function(fn) {
   if (!capabilities("cairo") && needs_cairo(fn)) {

tests/testthat/test-file.R

@@ -1,5 +1,3 @@
-context("file")
-
 describe("with_file", {
   it("can use unnamed arguments", {
     with_file("file1", {

tests/testthat/test-local.R

@@ -1,5 +1,3 @@
-context("local")
-
 test_that("local_options works", {
   expect_false(getOption("scipen") == 999)
   local({

tests/testthat/test-namespace.R

@@ -1,5 +1,3 @@
-context("namespace")
-
 test_that("with_package works", {
 
   # tools package not attached to the search path

tests/testthat/test-rng.R

@@ -1,5 +1,3 @@
-context("rng")
-
 describe("with_rng_version", {
   it("changes the RNG", {
     cur <- RNGkind()

tests/testthat/test-sink.R

@@ -1,5 +1,3 @@
-context("With sink")
-
 test_that("with_output_sink works as expected", {
   tmp <- tempfile()
   on.exit(unlink(tmp), add = TRUE)

tests/testthat/test-tempdir.R

@@ -1,5 +1,3 @@
-context("tempdir")
-
 test_that("clean needs to be a single logical", {
   expect_error(with_tempdir(clean = "sparkling"), "TRUE or FALSE")
   expect_error(with_tempdir(clean = c(TRUE, FALSE)), "TRUE or FALSE")

tests/testthat/test-tempfile.R

@@ -1,5 +1,3 @@
-context("tempfile")
-
 test_that("with_tempfile works", {
 
   f1 <- character()

tests/testthat/test-timezone.R

@@ -1,5 +1,3 @@
-context("timezone")
-
 describe("with_timezone", {
   it("changes the time zone", {
     expect_equal(with_timezone("CET", Sys.timezone()), "CET")

tests/testthat/test-with.R

@@ -1,5 +1,3 @@
-context("With")
-
 test_that("with_options works", {
   expect_false(identical(getOption("scipen"), 999))
   expect_equal(with_options(c(scipen=999), getOption("scipen")), 999)

tests/testthat/test-wrap.R

@@ -1,6 +1,3 @@
-context("wrap")
-
-
 test_that("wrap works", {
   v <- c(0, 0, 0)
   set <- function(x) v[2] <<- x