tests/testthat/test-pdf_to_images.R

In muschellij2/didactr: Tools for Creating Automated Courses

context("PDF conversion")

test_that("PDF converted to PNG", {

  skip_on_cran()

  ex_file = system.file("extdata", "example.pdf", package = "didactr")
  if (file.exists(ex_file)) {
    res = pdf_to_images(ex_file)

    expect_length(res, 2)
    expect_type(res, "character")
  }
})