Should `local_edition(3)` also set `local_reproducible_output()`? about testthat HOT 2 CLOSED

local_edition <- function(x, .env = parent.frame()) {
  stopifnot(is_zap(x) || (is.numeric(x) && length(x) == 1))
  old <- edition_set(x)

  # local_reproducible_output() is called automatically by local_test_context()
  # but will be run before local_edition() is called, so we also need to
  # call it here
  if (x >= 3L) {
    local_reproducible_output(.env = .env)
  }

  withr::defer(edition_set(old), envir = .env)
}