tests/testthat.R

library(testthat)
library(brpextravis)

#test_check("brpextravis")
test_that("File name",{
  filename <- make_filename(2013)
  expect_that(filename,equals("accident_2013.csv.bz2"))
})
sbudiman/brpextravis documentation built on May 17, 2019, 8:44 p.m.