test_that("read-only databases forbid writes", {
con <- dbConnect(SQLite(), ":memory:", flags = SQLITE_RO)
on.exit(dbDisconnect(con), add = TRUE)
expect_error(
dbWriteTable(con, "mtcars", mtcars),
"attempt to write a readonly database",
fixed = TRUE
)
})
Generated by dwww version 1.15 on Sat May 18 07:59:52 CEST 2024.