inst/tests/test_filename.R

test_that("filename", {
  filename<-make_filename(2015)
  expect_that(filename, is_a("character"))
  expect_that(filename, matches("accident_2015.csv.bz2"))
})
moonshine13/fars documentation built on May 23, 2019, 6:11 a.m.