tests/testthat/test_fill_pdf_internals.R

In staplr: A Toolkit for PDF Files

# this file is written in UTF-8 encoding


if (requireNamespace("testthat", quietly = TRUE)) {
if (requireNamespace("pdftools", quietly = TRUE)) {
context('fill pdf internals')


test_that('fdf manipulation',{

  pdfFile <- system.file('simpleForm.pdf',package = 'staplr')

  pdfFileRich <- system.file('simpleFormRichText.pdf',package = 'staplr')

  tempFDF = tempfile()
  tempPDF = tempfile(fileext = '.pdf')
  fdfLines = get_fdf_lines(pdfFileRich, tempFDF)


  fill_from_fdf(input_filepath = pdfFile,fdf_filepath =  tempFDF,output_filepath = tempPDF,overwrite = TRUE)

  # pdftools interact wierdly with emoji, it also inconsistently sees the spaces between different
  # # characters.
  pdfTextNewRich = pdftools::pdf_text(tempPDF)
  expect_true(grepl('½¾ ‘’”“•', pdfTextNewRich))





})

  }
}