tests/testthat/test-inst.R

test_that("inst/templates match rdev package locally", {
  skip_on_ci()
  skip_on_cran()
  skip_on_covr()
  withr::local_dir("../..")

  # README-analysis.Rmd
  # README-rdev.Rmd
  # Rprofile
  rp <- readLines("inst/templates/Rprofile")
  rp <- rp[!grepl("suppressMessages(require(rdev))", rp, fixed = TRUE)]
  expect_identical(rp, readLines(".Rprofile"))

  # TODO.md
  # _metadata.yml
  # _quarto.yml
  # changelog.qmd
  # extra.css
  expect_identical(readLines("inst/templates/extra.css"), readLines("pkgdown/extra.css"))

  # index.qmd
  # lintr
  ln <- readLines("inst/templates/lintr")
  expect_identical(ln, readLines("tests/testthat/test-ci/lintr_test_config"))
  ln <- append(ln, c("exclusions: list(", "    \"tests/testthat/test-ci\"", "  )"))
  expect_identical(ln, readLines(".lintr"))

  # package.R
  pr <- readLines("inst/templates/package.R")
  expect_identical(pr, readLines("R/package.R", n = length(pr)))

  # pre-commit
  expect_identical(readLines("inst/templates/pre-commit"), readLines(".git/hooks/pre-commit"))

  # spelling.R
  expect_identical(readLines("inst/templates/spelling.R"), readLines("tests/spelling.R"))

  # test-spelling.R
  expect_identical(
    readLines("inst/templates/test-spelling.R"), readLines("tests/testthat/test-spelling.R")
  )
})
jabenninghoff/rdev documentation built on March 11, 2024, 2:37 a.m.