tests/testthat/test-build_report.R

In NESREA/webreport: Reporting on Social Media and Websites Made Easy

# test-build_webreport.R

context("Report generation")

test_that("appropriate data are sourced", {
  expect_error(build_webreport())
  expect_error(build_webreport(), "'data.source' must be provided")
  expect_error(build_webreport(data.source = "nofile.txt"),
               "A valid path for 'data.source' must be provided")
  expect_error(build_webreport(data.source = "test-data/ntweets.rds"),
               '\'data.source\' should be an SQLite database')
})