tests/testthat/bk_test_fars.R

In tcoopermont/fars:

test_that("data load correct number of records", {
  data(fars_2013)
  expect_that(nrow(fars_2013), equals(30202))
     
})

test_that("fars_read loads sample data", {
  file <- system.file("tests", "accident_2013.csv.bz2", package = "testpackage")
  fars_data <- fars_read(file)
  expect_that(nrow(fars_data), equals(30202))
})

test_that("fars_read_years loads sample data", {
  #setwd(dirname(system.file("extdata", "accident_2013.csv.bz2", package = "testpackage")))
  expect_match(dir(),"accident_2013.csv.bz2")
  fars_data <- fars_read_years(2013)
  expect_that(nrow(fars_data), equals(30202))
})