test/test_fars_read.R

In ammhd/farsFinal: Calling data on American public yearly data regarding fatal injuries in motor vehicle traffic crashes.

library(testthat)
test_that('fars_read function read files in the working directory', {
  # Check for inheritance
  expect_is(fars_read("./test/accident_2013.csv.bz2"), "tbl")

  # Check for functionality
  expect_equal(ncol(fars_read("./test/accident_2013.csv.bz2")), 50)

  # Check for errors
  expect_error(fars_read("this/route/is/innexistent"))
})