tests/testthat/test-03-connection.R

In ropensci/citesdb: A High-Performance Database of Shipment-Level 'CITES' Trade Data

olddir <- Sys.getenv("CITES_DB_DIR")
Sys.setenv(CITES_DB_DIR = normalizePath(file.path(getwd(), "localdb"),
                                        mustWork = FALSE
))

context("Connection")

test_that("Disconnetion works", {
  skip_on_cran()
  skip_if_not(cites_status())
  cites_disconnect()
  expect_error({
    success <- callr::r(function() {
      Sys.setenv(CITES_DB_DIR = normalizePath(file.path(getwd(), "localdb"),
                                              mustWork = FALSE))
      con <- DBI::dbConnect(
        duckdb::duckdb(),
        dbdir = file.path(Sys.getenv("CITES_DB_DIR"))
      )
      out <- inherits(con, "duckdb_connection")
      citesdb::cites_disconnect()
      options(CITES_DB_DIR = NULL)
      return(out)
    })
    stopifnot(success)
  },
  NA
  )
})

test_that("Database is deleted", {
  skip_on_cran()
  skip_if_not(cites_status())

  expect_error(cites_db_delete(), NA)
  expect_equal(DBI::dbListTables(cites_db()), character(0))
  expect_false(cites_status())
})

test_that("Tables fail when database is deleted", {
  skip_on_cran()

  expect_error(cites_shipments())
  expect_error(cites_codes())
  expect_error(cites_metadata())
  expect_error(cites_parties())
})

#unlink(Sys.getenv("CITES_DB_DIR"), recursive = TRUE)
Sys.setenv(CITES_DB_DIR = olddir)