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", {
both_error_i <- which(grepl("rev.both.error", names(r[[1]]), fixed = TRUE))
grepl("Namespace in Imports field not imported from",
grepl("Running the tests in", r_both_error$errors$issues)
grepl("is not an exported object from", r_both_error$errors$issues)
both_ok_i <- which(grepl("rev.both.ok", names(r[[1]]), fixed = TRUE))
test_that("check_rev_deps works for a package without a version in repos", {
list.dirs(file.path(design$output, "checks"), recursive = FALSE),
none_broken_i <- which(grepl("pkg.none.broken-", names(r[[1]]), fixed = TRUE))
grepl("Running the tests in", r_none_broken$errors$issues)
grepl("there is no package called", r_none_broken$errors$issues)
grepl("Running the tests in", r_none$errors$issues)
grepl("Reverse suggested deps detected", r_none$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