tests/test1.R

library(testthat)

library(finalassignment)

testthat::expect_that(make_filename(2012),
                      is_identical_to("accident_2012.csv.bz2"))

testthat::expect_that(make_filename("2017"),
                      is_identical_to("accident_2017.csv.bz2"))
thakurdev010/finalassignment2 documentation built on May 30, 2019, 8:20 a.m.