tests/testthat/test-compile-book.R

In LTLA/rebook: Re-using Content in Bioconductor Books

# This tests the book compilation process.
# library(testthat); library(rebook); source("setup.R"); source("test-compile-book.R")

example <- system.file("example", package="rebook")

tmp <- tempfile()
dir.create(tmp)
file.copy(example, tmp, recursive=TRUE)
src.dir <- file.path(tmp, "example")

write(file=file.path(src.dir, "_bookdown.yml"),
'book_filename: "Test book"
pagetitle: "I am a test book!"
delete_merged_file: true
new_session: true
language:
ui:
chapter_name: "Chapter "
output_dir: "docs"
rmd_files: ["test.Rmd"]')

test_that("compileBook works as expected", {
    work.dir <- file.path(tempfile(), "1.0.0")
    final.dir <- tempfile()

    compileBook(src.dir, work.dir, final.dir, input="test.Rmd")
    expect_true(file.exists(file.path(work.dir, "test.Rmd"))) 
    expect_true(file.exists(file.path(work.dir, "test_cache"))) # cache is promoted to the right place.
    expect_true(file.exists(file.path(final.dir, "test-chapter.html"))) # HTMLs are moved to the right place.
})

test_that("book compilation is thread-safe against concurrent extractFromPackage", {
    skip_on_os("windows")

    work.dir <- file.path(tempfile(), "1.0.0")
    final.dir <- tempfile()

    library(BiocParallel)
    out <- bplapply(1:2, function(i) {
        if (i==1L) {
            compileBook(src.dir, work.dir, final.dir, input="test.Rmd")
            TRUE
        } else {
            env <- new.env()
            extractFromPackage("test.Rmd", chunk="ghidorah-1964", work.dir=work.dir, package="rebook", src.name="example", objects="ghidorah", envir=env)
            env$ghidorah
        }
    }, BPPARAM=MulticoreParam(2))

    expect_true(file.exists(file.path(final.dir, "test-chapter.html"))) 
    expect_identical(out[[1]], TRUE)
    expect_identical(out[[2]], "pew pew")
})

test_that("compileBook defaults to the right place for the compiled book", {
    write(file=file.path(src.dir, "_bookdown.yml"),
'book_filename: "Test book"
pagetitle: "I am a test book!"
delete_merged_file: true
new_session: true
language:
  ui:
    chapter_name: "Chapter "
rmd_files: ["test.Rmd"]')

    work.dir <- file.path(tempfile(), "1.0.0")
    final.dir <- tempfile()

    compileBook(src.dir, work.dir, final.dir, input="test.Rmd")
    expect_true(file.exists(file.path(work.dir, "test.Rmd"))) 
    expect_true(file.exists(file.path(work.dir, "test_cache"))) # cache is promoted to the right place.
    expect_true(file.exists(file.path(final.dir, "test-chapter.html"))) # HTMLs are moved to the right place.
})