tests/testthat/test-getScriptData.R

context("getScriptData")

test_that("getScriptData returns scripts in expected format",{
  result<-getScriptData()
  expect_that(result, is_a("tbl_df"))
  expect_equal(nrow(result), 12)
})
lockedata/TextAnalysis documentation built on Nov. 21, 2019, 10:08 p.m.