tests/testthat/test-sql.R

In duckplyr: A 'DuckDB'-Backed Version of 'dplyr'

test_that("read_sql_duckdb() works", {
  con <- withr::local_db_connection(DBI::dbConnect(duckdb::duckdb()))

  expect_identical(
    read_sql_duckdb("SELECT 1 AS a", con = con, prudence = "lavish"),
    duckdb_tibble(a = 1L)
  )
})