tests/testthat/test-autogen.R

In connectedblue/ProjectTemplate2: Provides custom template and other extensions of ProjectTemplate

context('Testing Autogeneration')

test_that('stub.tests', {

  test_project <- tempfile('test_project')
  suppressMessages(create.project(test_project, minimal = FALSE))
  on.exit(unlink(test_project, recursive = TRUE), add = TRUE)

  oldwd <- setwd(test_project)
  on.exit(setwd(oldwd), add = TRUE)

  suppressMessages(stub.tests())

  expect_that(file.exists(file.path('tests', 'autogenerated.R')), is_true())
  test.code <- scan(file.path('tests', 'autogenerated.R'), what = 'character', sep = '\n')
  expect_that(test.code, equals("expect_that(helper.function(), equals(NULL))"))

})