tests/testthat/test_computeDocumentationStatistics.R

context("computeDocumentationStatistics")

f <- findFilesInPackage('generateEnumeration.Rd', 'wyz.code.rdoc')
o <- computeDocumentationStatistics(f[1])

test_that("computeDocumentationStatistics", {
  expect_true(data.table::is.data.table(o))
  expect_equal(ncol(o), 3L)
})
neonira/wyz.code.rdoc documentation built on Feb. 19, 2020, 12:47 p.m.