tests/testthat/test_astext.R

In easyr: Helpful Functions from Oliver Wyman Actuarial Consulting

test_that( "works as expected", {

  expect_equal(
    astext( c( 1, 2, 4 ) ),
    "c( 1, 2, 4 )"
  )

  expect_equal(
    astext( c( 'a', 'b', 'c' ) ),
    "c( 'a', 'b', 'c' )"
  )

})