From f157b86696acb335ab736e13fc40e4f95d09ceb1 Mon Sep 17 00:00:00 2001 From: schuemie Date: Tue, 14 Jan 2025 09:23:40 -0500 Subject: [PATCH] Fewer inserts on BigQuery to avoid rate limit error during testing --- tests/testthat/test-sendUpdates.R | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/tests/testthat/test-sendUpdates.R b/tests/testthat/test-sendUpdates.R index 48f94b40..52b88d8c 100644 --- 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) + } }) }