initial IRIS setup

intersystems-community · Oct 10, 2024 · 6009263 · 6009263
1 parent cc2f38d
commit 6009263
Showing 1 changed file with 18 additions and 0 deletions.
diff --git 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()) {