tests/testthat/test-validate_connection_call.R

In pnacht/simplysql: Simple, secure DSN-like SQL connectivity

test_that("Calls to namespaced DBI::dbConnect() succeed", {
  expr <- quote(DBI::dbConnect(
    drv    = RSQLite::SQLite(),
    dbname = ":memory:"
  ))

  expect_error(.validate_connection_call(expr), NA)
})

test_that("Calls to unnamespaced dbConnect() fail", {
  expr <- quote(dbConnect(
    drv    = RSQLite::SQLite(),
    dbname = ":memory:"
  ))

  expect_error(.validate_connection_call(expr))

  # even with DBI loaded
  library(DBI)
  expr <- quote(dbConnect(
    drv    = RSQLite::SQLite(),
    dbname = ":memory:"
  ))

  expect_error(.validate_connection_call(expr))
})

test_that("Calls to functions other than DBI::dbConnect() fail", {
  expr <- quote(paste(
    drv    = RSQLite::SQLite(),
    dbname = ":memory:"
  ))

  expect_error(.validate_connection_call(expr))
})