tests/tests.R

library(testthat)

make_filename <- function(year) {
  year <- as.integer(year)
  sprintf("accident_%d.csv.bz2", year)
}

testthat::expect_that(make_filename(2015), equals("accident_2015.csv.bz2"))
a-antonopoulou/TestAssignment documentation built on Aug. 24, 2020, 2:23 a.m.