tests/testthat/test_simple.R

In rubenarslan/rmarkdownpartials: Partial 'rmarkdown' Documents to Prettify your Reports

context("Test simple")

setup_files <- function() {
  test_dir <- tempfile("test_rmdpartials")
  stopifnot(dir.create(test_dir))
  setwd(test_dir)
  test_dir <- getwd() # dumb trick to get a proper path without double slashes

  cat(
    "
test0
```{r}
plot(0)
partial('one.Rmd')
```
", file = "zero.Rmd")

  cat(
    "
test1
```{r}
plot(1)
```
", file = "one.Rmd")

  test_dir
}

test_that("Nesting with plots knitr", {
  test_dir <- setup_files()
  on.exit({
    unlink(test_dir, recursive = TRUE)
  })
  text <- paste0(readLines("zero.Rmd"), collapse = "\n")

  expect_silent(md <- knitr::knit(text = text, quiet = TRUE))

  expect_match(md, "test0", fixed = TRUE)
  expect_match(md, "test1", fixed = TRUE)
  expect_equal(2, length(list.files(
    file.path(test_dir, "figure"))))
})

test_that("Nesting with plots rmarkdown", {
  test_dir <- setup_files()
  on.exit({
    unlink(test_dir, recursive = TRUE)
  })

  expect_message(file <- rmarkdown::render("zero.Rmd",
                                           output_format =
                                             rmarkdown::html_document(
                                               self_contained = FALSE)
  ))

  html <- paste0(readLines(file), collapse = "\n")

  expect_match(html, "test0", fixed = TRUE)
  expect_match(html, "test1", fixed = TRUE)

  # no new temp directory generated when a top-level document exists
  expect_equal(dirname(file), test_dir)

  expect_equal(2, length(list.files(
    file.path(test_dir, "zero_files/figure-html"))))
})

test_that("Nesting with plots partial", {
  test_dir <- setup_files()
  on.exit({
    unlink(test_dir, recursive = TRUE)
    Sys.unsetenv("TESTTHAT_interactive")
  })

  Sys.setenv(TESTTHAT_interactive = "true")

  expect_silent(md <- partial("zero.Rmd"))
  output.dir <- attributes(md)$knit_meta$output.dir

  expect_error(expect_equal(output.dir, test_dir))

  expect_match(md, "test0", fixed = TRUE)
  expect_match(md, "test1", fixed = TRUE)
  expect_equal(2, length(list.files(
    file.path(output.dir, "index_files/figure-html"))))

  cur_viewer = getOption("viewer")
  on.exit({
    options(viewer = cur_viewer)
  }, add = TRUE)
  options(viewer = function(x) { cat(x) })
  expect_output(knitted <- print(md), regexp = "\\.html$")
  expect_equal(class(knitted), "knit_asis")
  expect_match(knitted, "<img")

  unlink(test_dir, recursive = TRUE)
  unlink(output.dir, recursive = TRUE)
})