tests/testthat/test-tt_curate_data.R

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

test_that("tt_curate_data returns the path to the curation script", {
  rlang::local_interactive(FALSE)
  test_result <- tt_curate_data()
  expect_equal(
    test_result,
    system.file("templates", "tt_curation.R", package = "tidytuesdayR")
  )
})