tests/testthat/test_fix_labels.R

context("fix_labels")

test_that("fix labels", {
  fix_labels("fix-labels/fix-labels-1.tex", "fix-labels/fix-labels-1-out.tex")
  result <- readr::read_lines("fix-labels/fix-labels-1-out.tex")
  expected <- readr::read_lines("fix-labels/fix-labels-1-expected.tex")
  
  expect_identical(fix_labels("fix-labels/fix-labels-1.tex", "fix-labels/fix-labels-1-out.tex"), expected)
})
HughParsonage/grattanReporter documentation built on May 7, 2019, 5:02 a.m.