tests/testthat/test_beautify.R

context("beautify")

b <- beautify()

test_that("beautify", {
  expect_length(b, 31)
  lapply(b, function(e) {
    expect_true(is.function(e))
  })
})

Try the wyz.code.rdoc package in your browser

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

wyz.code.rdoc documentation built on Oct. 6, 2021, 9:07 a.m.