Skip was in wrong place

OHDSI · Nov 13, 2023 · 59c8d38 · 59c8d38
1 parent b999ae3
commit 59c8d38
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tests/testthat/test-fetchResults.R b/tests/testthat/test-fetchResults.R
@@ -8,7 +8,7 @@ if (DatabaseConnector:::is_installed("ParallelLogger")) {
 
 for (testServer in testServers) {
   test_that(addDbmsToLabel("Fetch results", testServer), {
-    skip_if_not(testServer$connectionDetails$dbms %in% c("sqlite", "duckdb"))
+
     connection <- connect(testServer$connectionDetails)
     on.exit(disconnect(connection))
     sql <- "SELECT COUNT(*) AS row_count FROM @cdm_database_schema.vocabulary"
@@ -41,6 +41,7 @@ for (testServer in testServers) {
     expect_gt(dplyr::collect(andromeda$test2)$rowCount[1], 1)
     Andromeda::close(andromeda)
 
+    skip_if_not(testServer$connectionDetails$dbms %in% c("sqlite", "duckdb"))
     # dbFetch only fetches n rows
     sql <- "SELECT * FROM @cdm_database_schema.vocabulary;"
     sql <- SqlRender::render(sql,