tests/testthat/test-tt_intro.R

In thebioengineer/tidytuesdayR: Access the Weekly 'TidyTuesday' Project Dataset

test_that("tt_intro creates the expected file", {
  proj_dir <- withr::local_tempdir()
  full_submission_path <- fs::path(proj_dir, "tt_submission")
  usethis::local_project(proj_dir, force = TRUE, quiet = TRUE)
  expect_true(tt_intro(open = FALSE))
  file_path <- fs::path(full_submission_path, "intro.md")
  expect_snapshot_file(file_path)
})