Test connection before invoking unit tests

OHDSI · Dec 19, 2023 · d3689b7 · d3689b7
1 parent c77d0e4
commit d3689b7
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -150,6 +150,8 @@ if (!(Sys.getenv("CDM5_REDSHIFT_USER") == "" &
 
   # DEBUG:
   print(dir(Sys.getenv("DATABASECONNECTOR_JAR_FOLDER")))
+  conn  <- DatabaseConnector::connect(connectionDetails = connectionDetailsList[[length(connectionDetailsList)]]$connectionDetails)
+  DatabaseConnector::disconnect(conn)
 }
 
 # # SQL Server