From c1eaf11a103872fee4da9c76a0a001384872691b Mon Sep 17 00:00:00 2001
From: schuemie <schuemie@ohdsi.org>
Date: Thu, 13 Jun 2024 11:09:43 +0200
Subject: [PATCH] Skipping DuckDB unit test for now

---
 tests/testthat/dbplyrTestFunction.R | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/tests/testthat/dbplyrTestFunction.R b/tests/testthat/dbplyrTestFunction.R
index e97debdc..9ef5218a 100644
--- a/tests/testthat/dbplyrTestFunction.R
+++ b/tests/testthat/dbplyrTestFunction.R
@@ -136,13 +136,16 @@ testDbplyrFunctions <- function(connectionDetails, cdmDatabaseSchema) {
     collect()
   expect_gt(personTwice$n, 1)
   
-  tripleJoin <- person %>%
-    left_join(observationPeriod, by = join_by(person_id)) %>%
-    left_join(observationPeriod %>%
-                select(person_id, dummy = observation_period_start_date),
+  if (dbms(connection) != "duckdb") {
+    # Skipping on DuckDB until DatabaseConnector 7. See #271
+    tripleJoin <- person %>%
+      left_join(observationPeriod, by = join_by(person_id)) %>%
+      left_join(observationPeriod %>%
+                  select(person_id, dummy = observation_period_start_date),
                 by = join_by(person_id)) %>%
-    collect()
-  expect_gt(nrow(tripleJoin), 0)
+      collect()
+    expect_gt(nrow(tripleJoin), 0)
+  }
   
   # Test row_number ------------------------------------------------------------
   top10PersonsHardWay <- person %>%