tests/testthat/test-use_ggplot2_utils.R

In emptyfield-ds/opensky: Templates for 'ggplot2' and 'R Markdown'

test_that("use_ggplot2_utils()", {
  withr::local_options(usethis.quiet = TRUE)
  local_temp_dir()
  local_proj_set()

  with_mock(
    check_installed = function(...) TRUE,
    {
      use_ggplot2_utils()
      use_ggplot2_utils("ggplot2_helpers.R")
    }
  )

  expect_snapshot_file("ggplot2-utils.R")
  expect_snapshot_file("ggplot2_helpers.R")
})