tests/tests.R

library(testthat)
library(magrittr)
library(farstest)

testthat::expect_that(farstest::make_filename(2013) %>%
                        farstest::fars_read() %>%
                        nrow(),
                      testthat::equals(30202))
BigBandaid2/farstest documentation built on June 30, 2020, 8:14 a.m.