tests/testthat/test-report_generation.R

In lorenzwalthert/gitsum: Parse and summarize git repositories

context("plots")
library("ggplot2")
path_det <- testthat_file("test_logs/testthat_log_detailed.txt")
test_that("repo reports can be created", {
  skip_on_os("windows")
  if (!is_gitsum_repo()) init_gitsum()
  expect_error(report_git(
    path = dirname(path_det),
    cached = FALSE,
    input_file = basename(path_det),
    output_format = "all"
  ), NA)
})