tests/testthat/test-load_extension.R

In duckdbfs: High Performance Remote File System, Database and 'Geospatial' Access Using 'duckdb'

test_that("extensions installation", {

  load_httpfs(nightly=FALSE, force = FALSE)

  exts <- duckdb_extensions()
  status <- exts[exts$extension_name == "httpfs",]
  expect_true(status$installed)
  expect_equal(status$installed_from, "core")

  load_spatial(nightly = FALSE, force = TRUE)
  exts <- duckdb_extensions()
  status <- exts[exts$extension_name == "httpfs",]
  expect_true(status$installed)
  expect_equal(status$installed_from, "core")


})