tests/testthat/test-generateReport.R

context("generateReport")

# initial values


test_that("Works for defaults",{

  skip_on_cran()
  testpath <- tempdir()
  dir.create(testpath)
  on.exit(unlink(testpath,recursive = TRUE))
  generateReport(output_dir=testpath)
  expect_true(file.exists(file.path(testpath, "PackageReview.html")))

})
lockedata/PackageReviewR documentation built on May 21, 2019, 7:37 a.m.