tests/testthat/test-minifunct.R

In joaojcorreia/FarsR: FARS data reader and plotter

context("Testing the small functions of the package that are used within the same package")


test_that("fars_read works", {
  path_to_2013_data <- system.file("extdata", "accident_2013.csv.bz2",
                                   package = "Fars")

  expect_error(Fars:::fars_read("no_file_there"), "file 'no_file_there' does not exist")
  expect_is(Fars:::fars_read(path_to_2013_data), "tbl_df")
  expect_equal(dim(Fars:::fars_read(path_to_2013_data)), c(30202, 50))
})


test_that("make_filename works", {
  expect_equal(Fars:::make_filename(2014), system.file("extdata", package = "Fars","accident_2014.csv.bz2"))
})


test_that("fars_read_years works", {
  setwd(system.file("extdata", package = "Fars"))

  fars_2014_preprocessed <- tibble::tribble(
    ~MONTH,  ~year,
    11,  2014,
    12,  2014,
    12,  2014,
    12,  2014,
    12,  2014,
    12,  2014
  )
  #fars_2014_preprocessed$MONTH <- as.integer(fars_2014_preprocessed$MONTH)

  expect_error(Fars:::fars_read_years(3000))
  expect_is(Fars:::fars_read_years(2014), "list")
  expect_equal(dim(Fars:::fars_read_years(2013)[[1]]), c(30202, 2))
  expect_equal(tail(Fars:::fars_read_years(2014)[[1]]), fars_2014_preprocessed)

  expect_is(Fars:::fars_read_years(c(2013, 2014)), "list")
  expect_equal(length(Fars:::fars_read_years(c(2013, 2014))), 2)
  expect_equal(tail(Fars:::fars_read_years(c(2013, 2014))[[2]]), fars_2014_preprocessed)
})