tests/testthat/test-session-info.R

In reprex: Prepare Reproducible Example Code via the Clipboard

test_that("session info is omitted / included", {
  skip_on_cran()
  if (rlang::is_installed("sessioninfo")) {
    regex <- "^sessioninfo::session_info"
  } else {
    regex <- "^sessionInfo"
  }
  input <- c("(y <- 1:4)", "mean(y)")
  ret <- reprex(input = input)
  expect_no_match(ret, regex)
  ret <- reprex(input = input, session_info = TRUE)
  expect_match(ret, regex, all = FALSE)
})

test_that("session info is folded for `venue = 'gh'`", {
  skip_on_cran()
  input <- c("(y <- 1:4)", "mean(y)")
  ret <- reprex(input = input, session_info = TRUE, venue = "gh")
  expect_match(ret, "<details.*>", all = FALSE)
  expect_match(ret, "</details>", fixed = TRUE, all = FALSE)
})