tests/testthat/test-check.R

In packer: An Opinionated Framework for Using 'JavaScript'

source("../fns.R")

skip_on_cran()

test_that("Checks", {

  # keep working directory
  wd <- getwd()

  expect_error(scaffold_leprechaun(edit = FALSE))

  # test bare
  pkg <- create_tmp_package()
  setwd(pkg)
  expect_output(scaffold_input("test", edit = FALSE))
  bundle_dev()
	on.exit({
    setwd(wd)
  	delete_tmp_package(pkg)
	})

  expect_message(checks())
	expect_error(are_minified())
  expect_message(bundle_dev())
	are_minified("inst/packer")
  expect_message(put_precommit_hook())

  # git
  usethis::use_git()
  expect_message(put_precommit_hook())
  expect_message(put_precommit_hook())

  # rprofile
  file.create(".Rprofile")
  put_rprofile_adapt()
})