run_tests.R

tests <- function(module = 'all', reporter = 'project') {
  if ('testthat' %in% rownames(utils::installed.packages())) {
    library('testthat')
    library('checkmate')
    
    source('tests/reporter-project.R')
    
    if (module == 'module1') {
      fpath <- paste0('tests/tests_', module, '.R')
      if(test_file_exists(fpath)) {
        test_file(fpath, reporter = reporter)
      } else {
        print('The test file is missing check your `tests` directory.')
      }
    } else if (module == 'all') {
      test_dir('tests', reporter = reporter)
    } else {
      print(paste('No module named:', module))
    }
  } else {
    warning('Please run `packrat::restore()` to install the needed packages.')
  }
}

if (!interactive()) {
  library('optparse')
  library('testthat')

  source('tests/reporter-project.R')
  source('tests/reporter-json.R')

  option_list <- list(
    make_option(c('-m', '--module'), type = 'character', default = 'all',
                help='Module to test.'),
    make_option(c('-r', '--reporter'), type = 'character', default = 'json',
                help='Reporter to use.')
  )
  opt <- parse_args(OptionParser(option_list=option_list))
  tests(module = opt$module, reporter = opt$reporter)
}