tests/testthat/test-use_whirl.R

In whirl: Log Execution of Scripts

test_that("use_whirl", {
  withr::with_tempdir({
    rlang::local_interactive(FALSE)

    usethis::create_project(path = ".") |>
      expect_message() |>
      suppressMessages()

    use_whirl() |>
      expect_message() |>
      suppressMessages()

    expect_true(file.exists("_whirl.yaml"))

    expect_equal(
      readLines("_whirl.yaml"),
      readLines(system.file("use_whirl/_whirl.yaml", package = "whirl"))
    )

    expect_true(file.exists(".gitignore"))

    expect_contains(
      readLines(".gitignore"),
      "*_log.(html|json|md)"
    )
  })
})