tests/testthat/test-vignette_review.R

In docreview: Opinionated Documentation Checking

test_that("vignette_review works as expected", {
  vr <- vignette_review(system.file("testpkg", package = "docreview"))
  expect_equal(vr$failures, 0)
  expect_equal(vr$warnings, 2)

  expect_named(vr$details, c("testpkg.Rmd", "testpkg2.Rmd"))

  expect_equal(vr$details$testpkg.Rmd$flesch_kincaid, 36.09, tolerance = 0.1)
  expect_equal(vr$details$testpkg.Rmd$length, 351)

  expect_equal(vr$details$testpkg2.Rmd$flesch_kincaid, 33.7, tolerance = 0.1)
  expect_equal(vr$details$testpkg2.Rmd$length, 170)
})