tests/testthat/test-db_get_from_table.R

In hdshea/MIMIC3db: Package for building, loading and referencing a SQLite version of the MIMIC-III v1.4 database on a local network

test_that("db_get_from_table works", {
  db_file <- system.file("extdata", "MIMIC-III.db", package = "MIMIC3db")
  if (RSQLite::dbCanConnect(RSQLite::SQLite(), db_file)) {
    con <- RSQLite::dbConnect(RSQLite::SQLite(), db_file)
  } else {
    stop(stringr::str_c("Database file: ", db_file, " not found.", sep = ""))
  }

  expect_equal(t_patients_raw, db_get_from_table(con, "PATIENTS"))

  RSQLite::dbDisconnect(con)
})