tests/testthat/test-getAuthorTitles.R

In ecology-rocks/grammaR: Context Free Grammar Story Building Helper in R

context("getAuthorTitles Check")

test_that("getAuthorTitles reads a file correctly", {
  expect_equal(getAuthorTitles("."),
               data.frame(title="Treacherous Blaze",
                          author="G. U. Cook",
                          stringsAsFactors=F))
})

test_that("getAuthorTitles rejects bad directories and files",{
  expect_error(getAuthorTitles(""))
  expect_error(getAuthorTitles("bad/"))
})