tests/testthat/test-all.R

In renderthis: Render Slides to Different Formats

test_that("build_all() from basic slides.Rmd", {
    skip_if_not_chrome_installed()
    skip_if_not_installed("av")
    skip_if_not_installed("officer")
    skip_if_not_installed("webshot2")

    local_test_example_dir("slides", "basic")
    suppressMessages(
        lifecycle::expect_deprecated(
            build_all("slides.Rmd", slides = NULL)
        )
    )

    expect_true(fs::file_exists("slides.html"))
    expect_true(fs::file_exists("slides.pdf"))
    expect_true(fs::file_exists("slides.zip"))
    expect_true(fs::file_exists("slides.gif"))
    expect_true(fs::file_exists("slides.mp4"))
    expect_true(fs::file_exists("slides.pptx"))
})

test_that("build_all() from basic slides.Rmd with a few excluded formats", {
    skip_if_not_chrome_installed()
    skip_if_not_installed("av")
    skip_if_not_installed("officer")
    skip_if_not_installed("webshot2")

    local_test_example_dir("slides", "basic")
    suppressMessages(
        lifecycle::expect_deprecated(
            build_all("slides.Rmd", slides = NULL, exclude = c("html", "pdf", "png"))
        )
    )

    expect_false(fs::file_exists("slides.html"))
    expect_false(fs::file_exists("slides.pdf"))
    expect_false(fs::file_exists("slides.zip"))
    expect_true(fs::file_exists("slides.gif"))
    expect_true(fs::file_exists("slides.mp4"))
    expect_true(fs::file_exists("slides.pptx"))
})