tests/testthat/test-simplify.R

context("simplify parens")

test_that("remove needless parens from code", {
  goo <- quo((((3 + 4))))
  quo_simplified <- quo(3+4)
  res <- checkr:::simplify_ex(goo)

  expect_equal(res, quo_simplified)
})
dtkaplan/checkr documentation built on May 15, 2019, 4:59 p.m.