tests/tests.R

In marmello77/FARS: Coursera's Building an R Package

library(testthat)
library(FARS)

# Test the function fars_read
test_that("Check if the files are read into R in the expect format", {
    fars2013 <- fars_read("accident_2013.csv.bz2")
    expect_that(fars2013, is_a("data.frame"))
})

# Test the function make_filename
test_that("Checkt if the make_filename function works as expected", {
    expect_equal(make_filename(2013), "accident_2013.csv.bz2")})