tests/testthat/test-rmd.R

In packer: An Opinionated Framework for Using 'JavaScript'

source("../fns.R")

skip_on_cran()

test_that("Rmd", {

  # keep working directory
  wd <- getwd()

  # test bare
  pkg <- create_tmp_project()
  setwd(pkg)
  expect_output(scaffold_rmd(edit = FALSE))
  expect_message(use_loader_file())
  expect_message(bundle())
  setwd(wd)
  delete_tmp_package(pkg)

  # test react
  pkg <- create_tmp_project()
  setwd(pkg)
  expect_output(scaffold_rmd(react = TRUE, edit = FALSE))
  expect_message(use_loader_coffee())
  expect_message(bundle())
  setwd(wd)
  delete_tmp_package(pkg)

  # test vue
  pkg <- create_tmp_project()
  setwd(pkg)
  expect_output(scaffold_rmd(vue = TRUE, edit = FALSE))
  expect_message(use_loader_sass())
  expect_message(bundle())
  setwd(wd)
  delete_tmp_package(pkg)
})