tests/testthat/test_year.R

test_that("year is numeric", {
  year = 2013
  file <- make_filename(2013)
  expect_that(file, equals("accident_2013.csv.bz2"))
})
lmeilibr/Fars documentation built on May 21, 2019, 7:35 a.m.