tests/test_functions.R

In osserman/farsSO: Fiddle With Fatality Analysis Reporting System Data

library(testthat)

test_that("summarize years", {
   expect_that(1, equals(1))
#   expect_that(make_filename('2013'), equals("accident_2013.csv.bz2"))
#  my_results <- fars_summarize_years(list('2015','2013'))
#  expect_that(my_results, is_a("tbl_df"))
#  expect_that(colnames(my_results),equals(c("MONTH","2013","2015")))
})