tests/testthat/test-utilities.R

In rnoaa: 'NOAA' Weather Data from R

test_that("safe_read_csv",{
  expect_is(safe_read_csv, "function")
  expect_error(safe_read_csv())
  expect_error(safe_read_csv(5), "class")

  # file doesn't exist, throws warning on read.csv
  file1 <- tempfile()
  expect_error(safe_read_csv(file2))

  # file empty
  file2 <- tempfile()
  file.create(file2)
  expect_warning(safe_read_csv(file2))

  # file with a single newline
  file3 <- tempfile()
  cat("\n", file = file3)
  expect_error(safe_read_csv(file3))

  # with csv data
  file4 <- tempfile()
  writeLines("A,B,SOURCE\n1,2,3", con = file(file4))
  expect_is(safe_read_csv(file4, col_types = NULL), "data.frame")

  # cleanup
  invisible(lapply(c(file1, file2, file3, file4), unlink))
})