tests/testthat/test_dict.R

test_that("works as expected", {
  
  t = capture.output( dict( iris,  ecopy = TRUE ) )
  expect_true( all( t != '' ) )

  expect_equal( nrow( dict( iris ) ), ncol( iris ) )
  
  t = capture.output( dict( iris, ecopy = TRUE ) )
  expect_true( all( t != '' ) )

  expect_equal( nrow( dict( iris ) ), ncol( iris ) )
  
})
oliver-wyman-actuarial/easyR documentation built on Jan. 27, 2024, 4:35 a.m.