Error in `fail(msg, info = info, trace_env = trace_env)`: `info` must be a character vector or `NULL`, not `TRUE`.

create_temp_repo <- function(dir, repo_path) {
contrib_url <- utils::contrib.url(repo_path, type = "source")
sources <- list.files(dir, pattern = "^.*\\.tar\\.gz$", full.names = TRUE)
vapply(sources, file.copy, FUN.VALUE = logical(1), to = contrib_url)
sources_old <- test_path("fixtures", "revdeps", "v1")
sources_new <- test_path("fixtures", "revdeps", "v2")
test_that("check_rev_deps works for package with no revdeps", {
# Ensure source installation to make sure test works also on mac and windows
test_that("check_rev_deps works for package with one breaking change", {
grepl("Namespace in Imports field not imported from",
test_that("check_rev_deps works for a package without a version in repos", {
list.dirs(file.path(design$output, "checks"), recursive = FALSE),
grepl("Running the tests in", r[[1]][[1]]$errors$issues)
grepl("Reverse suggested deps detected", r[[1]][[1]]$errors$issues)

"check_rev_deps works for package with no revdeps"
"check_rev_deps works for package with one breaking change"
"Namespace in Imports field not imported from"
"check_rev_deps works for a package without a version in repos"

check_rev_deps works for package with one breaking change

Expected `r[[1]][[1]]$notes$issues` to have length 1.
Actual length: 3.

test_that("check_pkgs works as expected", {
examples_path <- system.file("example_packages", package = "checked")
list.dirs(file.path(plan$output, "checks"), recursive = FALSE),

Expected `r[[1]][[2]]$notes$issues` to have length 0.
Actual length: 2.

Expected `df$notes` to equal `c(1, 0)`.
Differences:
  `actual`: 3.0 2.0
`expected`: 1.0 0.0

test_that("results_to_df works as expected", {