tests/testthat/test_beautify.R

context("beautify")

b <- beautify()

test_that("beautify", {
  expect_length(b, 25)
  lapply(b, function(e) {
    expect_true(is.function(e))
  })
})
neonira/wyz.code.rdoc documentation built on Feb. 19, 2020, 12:47 p.m.