Fewer inserts on BigQuery to avoid rate limit error during testing

OHDSI · Jan 14, 2025 · f157b86 · f157b86
1 parent 1abc92a
commit f157b86
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/tests/testthat/test-sendUpdates.R b/tests/testthat/test-sendUpdates.R
@@ -15,11 +15,14 @@ for (testServer in testServers) {
     on.exit(disconnect(connection), add = TRUE)
     renderTranslateExecuteSql(connection, createSql)
     expect_equal(renderTranslateExecuteSql(connection, sql), c(1, 1, 0))
-    renderTranslateExecuteSql(connection, createSql)
-    expect_equal(renderTranslateExecuteSql(connection, sql, runAsBatch = TRUE), c(1, 1, 0))
-    renderTranslateExecuteSql(connection, createSql)
-    rowsAffected <- dbSendStatement(connection, sql)
-    expect_equal(dbGetRowsAffected(rowsAffected), 2)
-    dbClearResult(rowsAffected)
+    if (testServer$connectionDetails$dbms != "bigquery") {
+      # Avoid rate limit error on BigQuery
+      renderTranslateExecuteSql(connection, createSql)
+      expect_equal(renderTranslateExecuteSql(connection, sql, runAsBatch = TRUE), c(1, 1, 0))
+      renderTranslateExecuteSql(connection, createSql)
+      rowsAffected <- dbSendStatement(connection, sql)
+      expect_equal(dbGetRowsAffected(rowsAffected), 2)
+      dbClearResult(rowsAffected)
+    }
   })
 }