tests/testthat/test_check_all_figs_tbls_refd.R

In HughParsonage/grattanReporter: Parses Grattan Reports, Possibly Creating PDFs also

context("check all figs tbls refd")

test_that("Error when not refd", {
  expect_equal(figs_tbls_unrefd("./check-all-figs-tbls-refd/fig_not_refd.tex"), 
               "fig:this-lab-not-refd")
})

test_that("No error when unreferenced label isn't from tbl or fig", {
  expect_null(figs_tbls_unrefd("./check-all-figs-tbls-refd/sec_not_refd.tex"))
})

test_that("Error when not labeled", {
  expect_error(check_labels("./check-all-figs-tbls-refd/fig-not-labeled.tex"))
})

test_that("No error when commented out", {
  expect_null(figs_tbls_unrefd("./check-all-figs-tbls-refd/ok-as-fig-in-comment.tex"))
})

test_that("No error if explicitly allowed", {
  expect_null(figs_tbls_unrefd("./check-all-figs-tbls-refd/ok-as-fig-may-be-unrefd.tex"))
})

test_that("No error if in a comma'd list", {
  expect_null(figs_tbls_unrefd("./check-all-figs-tbls-refd/ok-as-vrefd-comma.tex"))
})

test_that("No error if Vrefrange", {
  expect_null(figs_tbls_unrefd("./check-all-figs-tbls-refd/ok-as-vrefrange.tex"))
})