tests/testthat/test_make_filename.R

context("Make the Right File Name")
library(farsManipulate)

test_that("make_filename() makes the right file name",{
  expect_equal(make_filename(01), "accident_1.csv.bz2")
  expect_equal(make_filename(1908),"accident_1908.csv.bz2")
  expect_error(make_filename(tq1234))
  expect_error(make_filename(`meow`))
})
mykoCheng/farsManipulate documentation built on May 5, 2019, 9:20 a.m.