Use testthat 3e (#4522)

Author: yutannihilation

DESCRIPTION

@@ -64,7 +64,7 @@ Suggests:
     rpart,
     sf (>= 0.7-3),
     svglite (>= 1.2.0.9001),
-    testthat (>= 2.1.0),
+    testthat (>= 3.0.0),
     vdiffr (>= 1.0.0),
     xml2
 Enhances: sp
@@ -274,3 +274,4 @@ Config/Needs/website:
     tidyr,
     forcats,
     tidyverse/tidytemplate
+Config/testthat/edition: 3

tests/testthat/test-add.R

@@ -1,5 +1,3 @@
-context("Adding plot elements")
-
 test_that("mapping class is preserved when adding uneval objects", {
   p <- ggplot(mtcars) + aes(wt, mpg)
   expect_identical(class(p$mapping), "uneval")

tests/testthat/test-aes-calculated.r

@@ -1,5 +1,3 @@
-context("test-aes-calculated.r")
-
 test_that("constants aren't calculated", {
   expect_equal(is_calculated_aes(aes(1, "a", TRUE)), c(FALSE, FALSE, FALSE))
 })

tests/testthat/test-aes-grouping.r

@@ -1,5 +1,3 @@
-context("Aesthetics (grouping)")
-
 df <- data_frame(
   x = 1:4,
   a = c("a", "a", "b", "b"),

tests/testthat/test-aes-setting.r

@@ -1,5 +1,3 @@
-context("Aes - setting values")
-
 test_that("aesthetic parameters match length of data", {
   df <- data_frame(x = 1:5, y = 1:5)
   p <- ggplot(df, aes(x, y))

tests/testthat/test-aes.r

@@ -1,5 +1,3 @@
-context("Creating aesthetic mappings")
-
 test_that("aes() captures input expressions", {
   out <- aes(mpg, wt + 1)
   expect_identical(out$x, quo(mpg))
@@ -36,7 +34,9 @@ test_that("aes_q() & aes_string() preserve explicit NULLs", {
 test_that("aes_all() converts strings into mappings", {
   expect_equal(
     aes_all(c("x", "y", "col", "pch")),
-    aes(x, y, colour = col, shape = pch)
+    aes(x, y, colour = col, shape = pch),
+    # ignore the environments of quosures
+    ignore_attr = TRUE
   )
 })
 

tests/testthat/test-annotate.r

@@ -1,5 +1,3 @@
-context("annotate")
-
 test_that("dates in segment annotation work", {
   dt <- structure(list(month = structure(c(1364774400, 1377993600),
       class = c("POSIXct", "POSIXt"), tzone = "UTC"), total = c(-10.3,

tests/testthat/test-build.r

@@ -1,6 +1,4 @@
 # Test the complete path from plot specification to rendered data
-context("Plot building")
-
 df <- data_frame(x = 1:3, y = 3:1, z = letters[1:3])
 
 test_that("there is one data frame for each layer", {
@@ -19,8 +17,8 @@ test_that("position aesthetics are coerced to correct type", {
   l1 <- ggplot(df, aes(x, y)) + geom_point()
   d1 <- layer_data(l1, 1)
 
-  expect_is(d1$x, "numeric")
-  expect_is(d1$y, "numeric")
+  expect_type(d1$x, "double")
+  expect_type(d1$y, "double")
 
   l2 <- ggplot(df, aes(x, z)) + geom_point() + scale_x_discrete()
   d2 <- layer_data(l2, 1)
@@ -52,5 +50,5 @@ test_that("strings are not converted to factors", {
   p <- ggplot(df, aes(x, y)) +
     geom_text(aes(label = label), parse = TRUE)
 
-  expect_is(layer_data(p)$label, "character")
+  expect_type(layer_data(p)$label, "character")
 })

tests/testthat/test-coord-.r

@@ -1,5 +1,3 @@
-context("test-coord-.r")
-
 test_that("clipping is on by default", {
   p <- ggplot()
   coord <- ggplot_build(p)$layout$coord

tests/testthat/test-coord-cartesian.R

@@ -1,5 +1,3 @@
-context("coord_cartesian")
-
 test_that("clipping can be turned off and on", {
   # clip on by default
   p <- ggplot() + coord_cartesian()