tests/testthat/test_make_filename.R

In langbart/fars:

test_that("make_filename returns character", {
  year <- 2020
  expect_true(is.character(make_filename(year)))

  })

test_that("fars_summarize_years returns tibble", {
  years <- c(2013,2014,2015)
  expect_true(tibble::is_tibble(fars_summarize_years(years)))
})