tests/testthat/test-utils-vignettes.R

In quarto-dev/quarto-r: R Interface to 'Quarto' Markdown Publishing System

test_that("don't auto install CTAN package on CRAN", {
  skip_on_cran()
  skip_if_not_installed("withr")
  withr::with_envvar(list(
    # simulate non CRAN
    "NOT_CRAN" = "false",
    # simulate R CMD check
    "_R_CHECK_LICENSE_" = "true"
  ), {
    expect_false(get_meta_for_pdf()$format$pdf$`latex-auto-install`)
  })
  withr::with_envvar(list(
    "_R_CHECK_PACKAGE_NAME_" = NA
  ), {
    expect_true(get_meta_for_pdf()$format$pdf$`latex-auto-install`)
  })
})