tests/testthat/test-article.R

In agoldst/scuro: An R Markdown Beamer-Presentation Setup

context("article template")

tmp <- tempfile("scuro")
dir.create(tmp)
d <- file.path(tmp, "test")

tmpl_files <- c("Makefile", "sources.bib", "test.Rmd")
test_that("all expected files are present", {
    # FUN FACT: devtools::test() / RStudio "Test Package" will fail here
    # because rmarkdown::draft won't find the template files because
    # devtools::test() loads the package using pkgload::load_all
    # which modifies system.file to find files in "./inst" but this
    # "shim" is not called by system.file when it's invoked in
    # previously loaded packages like rmarkdown.
    rmarkdown::draft(d, "article", "scuro", edit=F)

    expect_equal(list.files(d, recursive=T), tmpl_files)

    unlink(d, recursive=T)
    expect_false(file.exists(d))
})

test_that("making does what we want", {
    rmarkdown::draft(d, "article", "scuro", edit=F)
    system2("make", c("-C", d))
    expect_true(all(c("test.tex", "test.pdf", "figure")
                    %in% list.files(d)))

    system2("make", c("-C", d, "clean"))
    expect_false(file.exists(file.path(d, "test.tex")),
                 info="make clean")
    expect_true(file.exists(file.path(d, "test.pdf")),
                info="make clean")

    system2("make", c("-C", d, "reallyclean"))
    expect_equal(list.files(d, recursive=T), tmpl_files,
                info="make reallyclean")

    unlink(d, recursive=T)
    expect_false(file.exists(d))
})