inst/tests/tests.R

In kostya75/kmfars2: What the Package Does (One Line, Title Case)

#library(testthat)

# Test if a file name is created according to the template
# expect_that(make_filename(2014),is_identical_to("accident_2014.csv.bz2"))
#
# # Test whether a list is produced
# expect_that(fars_read_years(c(2014,2015)), is_a("list"))
#
# # Test that if 2 years supplied a return data table has 12 rows and 3 columns
# expect_that(dim(fars_summarize_years(c(2014,2015))),equals(c(12,3)))