tests/test_make_file.R

make_filename <- function(year) 

# FARS Code Tests ==========================================================

context("File Loading")


testthat::test_that("make_filename", {
  result <- farsfun::make_filename(2017)
  testthat::expect_is(result, "character")
  testthat::expect_true(length(result) == 1)
})
tynesjo/fars_functions_tst documentation built on May 3, 2019, 2:03 p.m.