tests/testthat/test-getScriptURLs.R

context("getScriptURLs")

test_that("getScriptURLs returns expected scripts",{
  result<-getScriptURLs()
  expect_that(result, is_a("tbl_df"))
  expect_equal(colnames(result),c("name","URL"))
  expect_equal(nrow(result), 78)
})
lockedata/TextAnalysis documentation built on Nov. 21, 2019, 10:08 p.m.