tests/testthat/test-connection.R

In poissonconsulting/readwritesqlite: Enhanced Reading and Writing for 'SQLite' Databases

test_that("rws_connect", {
  expect_error(
    rws_connect(":memory:", exists = TRUE),
    "File ':memory:' must already exist."
  )
  conn <- rws_connect(":memory:")
  expect_true(vld_sqlite_conn(conn, connected = TRUE))
  rws_disconnect(conn)
  expect_true(vld_sqlite_conn(conn, connected = FALSE))
})