Remove superseeded context() calls

MikeJohnPage · MikeJohnPage · commit 016b865f2463 · 2025-06-19T14:42:00.000+02:00
diff --git a/tests/testthat/test-accessors.R b/tests/testthat/test-accessors.R
@@ -1,5 +1,3 @@
-context("accessors")
-
 test_that("subsetting blob returns blob", {
   x <- blob(!!!as.raw(1:5))
   expect_s3_class(x[1], "blob")
diff --git a/tests/testthat/test-cast.R b/tests/testthat/test-cast.R
@@ -1,5 +1,3 @@
-context("test-cast")
-
 test_that("casting with as.blob()", {
   # Deprecated in v1.2.0
   local_lifecycle_silence()
diff --git a/tests/testthat/test-construction.R b/tests/testthat/test-construction.R
@@ -1,5 +1,3 @@
-context("construction")
-
 test_that("input must be list of raw blobs", {
   # error from vctrs package
   expect_error(new_blob(1))
diff --git a/tests/testthat/test-format.R b/tests/testthat/test-format.R
@@ -1,5 +1,3 @@
-context("format")
-
 expect_format_equal <- function(formatted, result) {
   expect_equal(
     paste(formatted, collapse = "\n"),
diff --git a/tests/testthat/test-missing.R b/tests/testthat/test-missing.R
@@ -1,5 +1,3 @@
-context("missing")
-
 test_that("is.na detects nulls", {
   x <- blob(as.raw(1), NULL, as.raw(2), NULL)
   expect_equal(is.na(x), c(FALSE, TRUE, FALSE, TRUE))

Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("accessors")`
`2`		`-`
`3`	`1`	`test_that("subsetting blob returns blob", {`
`4`	`2`	`x <- blob(!!!as.raw(1:5))`
`5`	`3`	`expect_s3_class(x[1], "blob")`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("test-cast")`
`2`		`-`
`3`	`1`	`test_that("casting with as.blob()", {`
`4`	`2`	`# Deprecated in v1.2.0`
`5`	`3`	`local_lifecycle_silence()`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("construction")`
`2`		`-`
`3`	`1`	`test_that("input must be list of raw blobs", {`
`4`	`2`	`# error from vctrs package`
`5`	`3`	`expect_error(new_blob(1))`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("format")`
`2`		`-`
`3`	`1`	`expect_format_equal <- function(formatted, result) {`
`4`	`2`	`expect_equal(`
`5`	`3`	`paste(formatted, collapse = "\n"),`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,3 @@`
`1`		`-context("missing")`
`2`		`-`
`3`	`1`	`test_that("is.na detects nulls", {`
`4`	`2`	`x <- blob(as.raw(1), NULL, as.raw(2), NULL)`
`5`	`3`	`expect_equal(is.na(x), c(FALSE, TRUE, FALSE, TRUE))`