From d63d717e0d97c3280f2787228e5609bb01954ee3 Mon Sep 17 00:00:00 2001
From: jgilber2 <jgilber2@its.jnj.com>
Date: Tue, 8 Oct 2024 16:48:13 -0700
Subject: [PATCH] Error on non-interactive session for installing psycopg2

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

diff --git a/tests/testthat/test-PyFunctions.R b/tests/testthat/test-PyFunctions.R
index a99bd37..cbb2dbb 100644
--- a/tests/testthat/test-PyFunctions.R
+++ b/tests/testthat/test-PyFunctions.R
@@ -13,6 +13,24 @@ test_that("test python postgres connection works", {
   curr$execute("SELECT 1")
   res <- curr$fetchone()
   expect_equal(res[[1]], 1)
+
+
+  server <- Sys.getenv("CDM5_POSTGRESQL_SERVER")
+  hostServerDb <- strsplit(server, "/")[[1]]
+  # Test with connection string
+  testDatabaseConnection2 <- DatabaseConnector::connect(
+    dbms = "postgresql",
+    connectionString = paste0("jdbc:postgresql://", hostServerDb[1], ":5432/", hostServerDb[2]),
+    user = Sys.getenv("CDM5_POSTGRESQL_USER"),
+    password = utils::URLdecode(Sys.getenv("CDM5_POSTGRESQL_PASSWORD"))
+  )
+
+  on.exit(DatabaseConnector::disconnect(testDatabaseConnection2), add = TRUE)
+  pyConnection2 <- .createPyConnection(testDatabaseConnection2)
+  on.exit(pyConnection2$close(), add = TRUE)
+
+  if(!interactive())
+    expect_error(install_psycopg2(), "Session is not interactive. This is not how you want to install psycopg2")
 })