1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
# Generated by helper-dev.R, do not edit by hand
skip_if_not_installed("RSQLite")
skip_if_not_installed("nanoarrow")
# helper-DBItest.R
# Also copied into DBI
tryCatch(skip = function(e) message(conditionMessage(e)), {
skip_on_cran()
skip_if_not_installed("DBItest")
DBItest::make_context(
RSQLite::SQLite(),
list(dbname = tempfile("DBItest", fileext = ".sqlite")),
tweaks = DBItest::tweaks(
dbitest_version = "1.8.0.50",
constructor_relax_args = TRUE,
placeholder_pattern = c("?", "$1", "$name", ":name"),
date_cast = function(x) paste0("'", x, "'"),
time_cast = function(x) paste0("'", x, "'"),
timestamp_cast = function(x) paste0("'", x, "'"),
logical_return = function(x) as.integer(x),
date_typed = FALSE,
time_typed = FALSE,
timestamp_typed = FALSE
),
name = "RSQLite"
)
})
# test-DBItest.R
# Also copied into DBI
skip_on_cran()
skip_if_not_installed("DBItest")
DBItest::test_all(
skip = c(
if (getRversion() < "4.0") "stream_bind_too_many"
)
)
|
