tests/testthat/test-pullFromCon.R

In rappster/dataconr: Interfaces for data sources

context("pullFromCon")

test_that("pullFromCon.DataCon.IntelligentForecaster.Csv", {
  inst <- DataCon.IntelligentForecaster.Csv$new(con = tempdir())
  expect_warning(
    expect_error(pullFromCon(inst), "cannot open the connection"),
    "Permission denied"
  )
})