tests/testthat/testfilename.R

test_that("Create filename works",
          expect_that(make_filename(1982), is_identical_to("accident_1982.csv.bz2"))
          )

test_that("Create filename from characters works",
          expect_that(make_filename("1982"), is_identical_to("accident_1982.csv.bz2"))
          )
DarkerThanEver/fars documentation built on May 17, 2019, 11:14 p.m.