tests/testthat/test-input.R

In packer: An Opinionated Framework for Using 'JavaScript'

source("../fns.R")

skip_on_cran()

test_that("Input", {

  # keep working directory
  wd <- getwd()

  expect_error(scaffold_input())

  # test bare
  pkg <- create_tmp_package()
  setwd(pkg)
  expect_error(scaffold_input())
  expect_output(scaffold_input("increment", edit = FALSE))
  expect_error(scaffold_input("increment", edit = FALSE))
  expect_message(bundle_prod())
  expect_message(npm_install())
  expect_output(scaffold_input("increment_again", edit = FALSE))
  expect_message(bundle_dev())
  expect_message(use_loader_babel())
  setwd(wd)
  delete_tmp_package(pkg)
})

test_that("Input React", {

  # keep working directory
  wd <- getwd()

  # test bare
  pkg <- create_tmp_package()
  setwd(pkg)
  expect_output(scaffold_input("incremental", edit = FALSE))
  expect_message(apply_react())
  setwd(wd)
  delete_tmp_package(pkg)
})