tests/testthat/test-files.R

In rostools/prodigenr: Research Project Directory Generator

context("Creating some files for project.")

new_project <- fs::path_temp("testing-docs")
setup_project(new_project)

test_that("Report and slides created", {
  withr::with_dir(new = new_project, {
    capture_output(create_slides())
    capture_output(create_report())
  })

  withr::with_dir(new = file.path(new_project, "docs"), {
    expect_true(fs::file_exists("slides.qmd"))
    expect_true(fs::file_exists("report.qmd"))
    # Needs a Rproj file.
    fs::file_delete("../testing-docs.Rproj")
    fs::file_delete("slides.qmd")
    expect_error(create_slides())
  })
})

fs::dir_delete(new_project)