tests/testthat/test-import_batch_files.R

In mike-decarlo/caser: Streamlined Solutions for Sampling and Subsetting in R

context("test-import_batch_files")
d <- data.frame("a" = seq(1, 10), "b" = seq(2, 20, by = 2))
write.csv(d, "./dat.csv")
test_that("NULL values for 'p'/'f' return errors", {
  expect_error(
    import_batch_files(.fun = read.csv)
  )
  expect_error(
    import_batch_files(.path = ".")
  )
})
test_that("Non existent directory for 'p' returns error", {
  expect_error(
    import_batch_files(.path = "./data", .fun = read.csv, .ext = ".csv")
  )
})
test_that("Silent when working correctly", {
  expect_silent(
    import_batch_files(.path = ".", .fun = read.csv, .ext = ".csv")
  )
})
test_that("Non-character value for 'p' gets resolved", {
  expect_error(
    import_batch_files(.path = ., .fun = read.csv, .ext = ".csv")
  )
  expect_error(
    import_batch_files(.path = 1, .fun = read.csv, .ext = ".csv")
  )
})
file.remove("./dat.csv")