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
|
test_that("NULL becomes SQL NULL", {
con <- simulate_dbi()
expect_equal(sql_expr(NULL), sql("NULL"))
})
test_that("atomic vectors are escaped", {
con <- simulate_dbi()
expect_equal(sql_expr(2, con = con), sql("2.0"))
expect_equal(sql_expr("x", con = con), sql("'x'"))
})
test_that("user infix functions have % stripped", {
con <- simulate_dbi()
expect_equal(sql_expr(x %like% y, con = con), sql("x LIKE y"))
})
test_that("string function names are not quoted", {
con <- simulate_dbi()
f <- "foo"
expect_equal(sql_expr((!!f)(), con = con), sql("FOO()"))
})
test_that("correct number of parens", {
con <- simulate_dbi()
expect_equal(sql_expr((1L), con = con), sql("(1)"))
})
|
