tests/testthat/test-pdf_to_images.R

In ariExtra: Tools for Creating Automated Courses

testthat::context("PDF conversion")

testthat::test_that("PDF converted to Ari", {

  skip_on_cran()

  ex_file = system.file("extdata", "example.pdf", package = "ariExtra")
  if (file.exists(ex_file)) {
    res = pdf_to_ari(ex_file, script = c("hey", "ho"), open = FALSE)
    res = res$output_file
    testthat::expect_length(res, 1)
    testthat::expect_true(file.exists(res))
    testthat::expect_type(res, "character")
  }
})