tests/testthat/test-my-tests.R

In 12mre1/fars: What the Package Does (One Line, Title Case)

test_that('files made correctly',{
  expect_equal(make_filename(2013),'accident_2013.csv.bz2')
  expect_equal(make_filename(2014),'accident_2014.csv.bz2')
})

test_that('wrong years identified',{
  expect_error(fars_read(2019))
  expect_error(fars_read(1888))
})

test_that('filename is string',{
  expect_type(make_filename(2013), 'character')
})