From 600926314f6bb8d3382053bfd3bcfa70b7d30efb Mon Sep 17 00:00:00 2001
From: Benjamin De Boe <benjamin.de.boe@intersystems.com>
Date: Thu, 10 Oct 2024 09:45:29 +0200
Subject: [PATCH] initial IRIS setup

---
 tests/testthat/setup.R | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
index 3885527b..d96fd305 100644
--- a/tests/testthat/setup.R
+++ b/tests/testthat/setup.R
@@ -12,6 +12,7 @@ if (Sys.getenv("DONT_DOWNLOAD_JDBC_DRIVERS", "") != "TRUE") {
   downloadJdbcDrivers("spark")
   downloadJdbcDrivers("snowflake")
   downloadJdbcDrivers("bigquery")
+  downloadJdbcDrivers("iris")
   
   if (testthat::is_testing()) {
     withr::defer({
@@ -185,6 +186,23 @@ if (Sys.getenv("CDM_BIG_QUERY_CONNECTION_STRING") != "") {
   }
 }
 
+
+
+# InterSystems IRIS
+if (Sys.getenv("CDM_IRIS_CONNECTION_STRING") != "") {
+  testServers[[length(testServers) + 1]] <- list(
+    connectionDetails = details <- createConnectionDetails(
+      dbms = "iris",
+      user = Sys.getenv("CDM_IRIS_USER"),
+      password = URLdecode(Sys.getenv("CDM_IRIS_PASSWORD")),
+      connectionString = Sys.getenv("CDM_IRIS_CONNECTION_STRING")
+    ),
+    NULL,
+    cdmDatabaseSchema = Sys.getenv("CDM_IRIS_CDM53_SCHEMA"),
+    tempEmulationSchema = Sys.getenv("CDM_IRIS_OHDSI_SCHEMA")
+  )
+}
+
 # SQLite
 sqliteFile <- tempfile(fileext = ".sqlite")
 if (testthat::is_testing()) {