tests/testthat/test-wpdf_document.R

In RLesur/weasydoc: Convert R Markdown to PDF Using HTML and CSS

context("test-wpdf_document.R")

test_that("Render with WeasyPrint-Default options", {
  rmarkdown::render("document.Rmd", wpdf_document(), "weasyprint.pdf")
  knitr::knit_meta()
  expect_true(file.exists("weasyprint.pdf"))
  unlink("weasyprint.pdf")
})

test_that("Render with Prince-Default options", {
  rmarkdown::render("document.Rmd", wpdf_document(wpdf_engine = "prince"), "prince.pdf")
  knitr::knit_meta()
  expect_true(file.exists("prince.pdf"))

  expect_match(pdftools::pdf_text("prince.pdf"), "Created with Javascript")
  unlink("prince.pdf")
})

test_that("Attach Rmd file correctly", {
  rmarkdown::render("document.Rmd", wpdf_document(attach_code = TRUE), "weasyprint.pdf")
  knitr::knit_meta()
  rmarkdown::render("document.Rmd", wpdf_document(wpdf_engine = "prince", attach_code = TRUE), "prince.pdf")
  knitr::knit_meta()

  testthat::expect_equal(pdftools::pdf_attachments("weasyprint.pdf")[[1]]$name, "document.Rmd")
  testthat::expect_equal(pdftools::pdf_attachments("prince.pdf")[[1]]$name, "document.Rmd")
  unlink("weasyprint.pdf")
  unlink("prince.pdf")
})

test_that("Keep html option", {
  rmarkdown::render("document.Rmd", wpdf_document(keep_html = TRUE), "weasyprint.pdf")
  knitr::knit_meta()
  expect_true(file.exists("weasyprint.html"))
  unlink("weasyprint.pdf")
  unlink("weasyprint.html")

  rmarkdown::render("document.Rmd", wpdf_document_base(wpdf_engine = "prince", keep_html = TRUE), "prince.pdf")
  knitr::knit_meta()
  expect_true(file.exists("prince.html"))
  unlink("prince.pdf")
  unlink("prince.html")
})

test_that("Numbered sections options", {
  rmarkdown::render("document.Rmd", wpdf_document(number_sections = TRUE), "weasyprint.pdf")
  knitr::knit_meta()
  expect_true(file.exists("weasyprint.pdf"))
  unlink("weasyprint.pdf")

  rmarkdown::render("document.Rmd", wpdf_document(number_sections = TRUE, wpdf_engine = "prince"), "prince.pdf")
  knitr::knit_meta()
  expect_true(file.exists("prince.pdf"))
  unlink("prince.pdf")
})