tests/testthat/test_get_con.R

In repana: Repeatable Analysis in R

# Test to get the connection
# 20181123 by JJAV
# # # # # # # # # # # # # # #

# This requires the database package installed  (duckdb)
require(DBI)
require(duckdb)
context("Test get_con")


test_that("get_con works fine" , {
  curdir  = getwd()
  cat("\nCurrent directory: ", curdir,"\n")
  tmpfile <- tempfile()
  dir.create(tmpfile)
  setwd(tmpfile)

  make_structure()


  test_con <- get_con()
  xiris <- iris
  xiris$Species <- as.character(xiris$Species)
  names(xiris) <- c("a", "b", "c", "d", "e")
  dbWriteTable(test_con, "iris", xiris, overwrite = T)
  iris2 <- dbReadTable(test_con, "iris")
  expect_equal(xiris, iris2)
  dbDisconnect(test_con)
  rm(test_con)

  # clean the messs
  setwd(curdir)
  unlink(tmpfile, recursive = T, force = T)

})