fix: Don't run tests that invoke re2 by default

Author: krlmlr

R/backend-dbplyr__duckdb_connection.R

@@ -7,7 +7,7 @@
 #'
 #' @name backend-duckdb
 #' @aliases NULL
-#' @examplesIf rlang::is_installed("dbplyr")
+#' @examplesIf duckdb:::TEST_RE2 && rlang::is_installed("dbplyr")
 #' library(dplyr, warn.conflicts = FALSE)
 #' con <- DBI::dbConnect(duckdb(), path = ":memory:")
 #'

R/csv.R

@@ -17,7 +17,7 @@
 #' @param ... Passed on to [read.csv()]
 #' @return The number of rows in the resulted table, invisibly.
 #' @export
-#' @examples
+#' @examplesIf duckdb:::TEST_RE2
 #' con <- dbConnect(duckdb())
 #'
 #' data <- data.frame(a = 1:3, b = letters[1:3])

R/re2.R

@@ -0,0 +1,2 @@
+# Set to TRUE to run tests that have triggered re2 in the past
+TEST_RE2 <- FALSE

man/backend-duckdb.Rd

@@ -1,6 +1,18 @@
 skip_on_cran()
 
 if (rlang::is_installed("DBItest")) DBItest::test_all(c(
+  if (!TEST_RE2) c(
+    "list_tables",
+    "list_tables_quote",
+    "list_fields_object",
+    "list_objects",
+    "list_objects_quote",
+    "list_objects_features",
+    "remove_table_list",
+    "remove_table_other_con",
+    "exists_table_list"
+  ),
+
   "package_name", # wontfix
   "package_dependencies", # wontfix
   "reexport", # wontfix

man/duckdb_read_csv.Rd

@@ -38,6 +38,8 @@ test_that("statements can be splitted apart correctly", {
 })
 
 test_that("export/import database works", {
+  skip_if_not(TEST_RE2)
+
   export_location <- file.path(tempdir(), "duckdb_test_export")
   if (!file.exists(export_location)) dir.create(export_location)
 

tests/testthat/test-DBItest.R

@@ -1,4 +1,6 @@
 test_that("duckdb_read_csv() works as expected", {
+  skip_if_not(TEST_RE2)
+
   con <- dbConnect(duckdb())
 
   tf <- tempfile()

tests/testthat/test-multi_statement.R

@@ -8214,6 +8214,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-preserving", {
 })
 
 test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-preserving", {
+  skip_if_not(TEST_RE2)
+
   # Autogenerated
   con <- dbConnect(duckdb())
   experimental <- FALSE
@@ -11254,6 +11256,8 @@ test_that("relational mutate(c = 10, d = log10(c)) order-enforcing", {
 })
 
 test_that("relational mutate(c = NA_character_, d = grepl('.', c)) order-enforcing", {
+  skip_if_not(TEST_RE2)
+
   # Autogenerated
   con <- dbConnect(duckdb())
   experimental <- FALSE

tests/testthat/test-read.R

@@ -1,4 +1,6 @@
 test_that("rs_list_object_types", {
+  skip_if_not(TEST_RE2)
+
   con <- dbConnect(duckdb())
   on.exit(dbDisconnect(con, shutdown = TRUE))
 
@@ -12,6 +14,8 @@ test_that("rs_list_object_types", {
 })
 
 test_that("rs_list_objects", {
+  skip_if_not(TEST_RE2)
+
   con <- dbConnect(duckdb())
   on.exit(dbDisconnect(con, shutdown = TRUE))
 
@@ -30,6 +34,8 @@ test_that("rs_list_objects", {
 })
 
 test_that("rs_list_columns", {
+  skip_if_not(TEST_RE2)
+
   con <- dbConnect(duckdb())
   on.exit(dbDisconnect(con, shutdown = TRUE))