tests/testthat/test-name-of-accident-file.R

context("Reading the data file")
test_that("filename includes requested year", {
    name <- make_filename(2014)
    expect_equal(name, "accident_2014.csv.bz2") 
})
Archimedes2kxx/farspack3 documentation built on May 5, 2019, 7:05 a.m.