tests/testthat/helper-all.R

In krlmlr/autoroxy: Create Documentation During Installation

create_temp_package <- function() {
  test_dir <- tempfile("autoroxy-test", fileext = "dir")
  dir.create(test_dir)
  file.copy("testDocumentation", test_dir, recursive = TRUE)
  pkg_path <- file.path(test_dir, "testDocumentation")
  expect_output(devtools::document(pkg_path), ".") # nolint
  repo <- git2r::init(pkg_path)
  git2r::config(repo, user.name="Alice", user.email="alice@example.org")
  git2r::add(repo, "*")
  git2r::commit(repo, "initial")
  repo
}

expect_commit <- function(x, msg) {
  if (expect_true(git2r::is_commit(x))) {
    expect_match(x@message, msg)
  }
}