tests/testthat/test-vig_ggally.R

In GGally: Extension to 'ggplot2'

test_that("all vignetts are accounted for", {
  testthat::skip_on_cran()

  # make sure vig dir exists
  vig_dir <- file.path("..", "..", "vignettes")
  testthat::skip_if_not(dir.exists(vig_dir))

  vigs <- dir(vig_dir, pattern = "\\.Rmd$")
  vigs <- sub(".Rmd", "", vigs, fixed = TRUE)
  expect_equal(vignettes_for_ggally, vigs)
})