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 ) )
  
})

Try the easyr package in your browser

Any scripts or data that you put into this service are public.

easyr documentation built on March 31, 2023, 6:22 p.m.