tests/testthat/test_runfolder.R

test_that("works as expected", {

  t = capture.output( runfolder( test_file('') ) )
  expect_true( cc( t, sep = '' ) != '' )

  # test edit.on.err
  t = capture.output( runfolder( test_file(''), edit.on.err = FALSE ) )
  expect_true( cc( t, sep = '' ) != '' )
  
  expect_error(
    runfolder( '/this/does/not/exist' ),
    'not found'
  )

})
oliver-wyman-actuarial/easyR documentation built on Jan. 27, 2024, 4:35 a.m.