test: ensure be able to install duckdb extensions on release version

Author: eitsupi

tests/testthat/helper-skip.R

@@ -0,0 +1,22 @@
+# https://github.com/r-lib/testthat/issues/2236
+skip_on_dev_version <- function() {
+  version <- asNamespace(testing_package())[[".__NAMESPACE__."]][["spec"]][[
+    "version"
+  ]] |>
+    package_version() |>
+    unclass() |>
+    getElement(1L)
+
+  if (length(version) < 3 || tail(version, 1L) < 9000) {
+    invisible()
+  } else {
+    skip("Skip on development versions.")
+  }
+}
+
+# Skip on CRAN, but run on R-universe
+skip_on_cran_except_r_universe <- function() {
+  if (!nzchar(Sys.getenv("MY_UNIVERSE"))) {
+    skip_on_cran()
+  }
+}

tests/testthat/test-duckdb-extensions.R

@@ -0,0 +1,6 @@
+test_that("Install DuckDB extension", {
+  skip_on_dev_version()
+  skip_on_cran_except_r_universe()
+
+  expect_no_error(sql("INSTALL icu"))
+})