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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
test_that("parameter names matched", {
expect_equal(
sqlInterpolate(ANSI(), "?a ?b", a = 1, b = 2),
SQL("1 2")
)
expect_equal(
sqlInterpolate(ANSI(), "?a ?b", b = 2, a = 1),
SQL("1 2")
)
expect_equal(
sqlInterpolate(ANSI(), "?a ?b", b = 2, .dots = list(a = 1)),
SQL("1 2")
)
expect_equal(
sqlInterpolate(ANSI(), "?a ?b", .dots = list(a = 1, b = 2)),
SQL("1 2")
)
})
test_that("parameters in strings are ignored", {
expect_equal(
sqlInterpolate(ANSI(), "'? ?fuu'"),
SQL("'? ?fuu'")
)
})
test_that("named parameters check matches", {
expect_error(
sqlInterpolate(ANSI(), "?a ?b", a = 1, d = 2),
"Supplied values don't match named vars to interpolate"
)
})
test_that("positional parameters work", {
expect_equal(
sqlInterpolate(ANSI(), "a ? c ? d ", 1, 2),
SQL("a 1 c 2 d ")
)
})
test_that("positional parameters can't have names", {
expect_error(
sqlInterpolate(ANSI(), "? ?", a = 1, 2),
"Positional variables don't take named arguments"
)
})
test_that("parameters in comments are ignored", {
expect_equal(
sqlInterpolate(ANSI(), "-- ? ?fuu"),
SQL("-- ? ?fuu")
)
})
test_that("strings are quoted", {
expect_equal(
sqlInterpolate(ANSI(), "?a", a = "abc"),
SQL("'abc'")
)
})
test_that("unquoted strings", {
expect_equal(
sqlInterpolate(ANSI(), "?a ?b", a = SQL("abc"), b = SQL("('a','b')")),
SQL("abc ('a','b')")
)
})
test_that("some more complex case works as well", {
expect_equal(
sqlInterpolate(
ANSI(),
"asdf ?faa /*fdsa'zsc' */ qwer 'wer' \"bnmvbn\" -- Zc \n '234' ?fuu -- ? ?bar",
faa = "abc",
fuu = 42L
),
SQL(
"asdf 'abc' /*fdsa'zsc' */ qwer 'wer' \"bnmvbn\" -- Zc \n '234' 42 -- ? ?bar"
)
)
})
test_that("escaping quotes with doubling works", {
expect_equal(
sqlInterpolate(
ANSI(),
"'this is a single '' one ?quoted string' ?bar ",
bar = 42
),
SQL("'this is a single '' one ?quoted string' 42 ")
)
})
test_that("corner cases work", {
expect_equal(
sqlInterpolate(ANSI(), ""),
SQL("")
)
expect_error(
sqlInterpolate(ANSI(), "?"),
"Supplied values don't match positional vars to interpolate"
)
expect_equal(
sqlInterpolate(ANSI(), "?a", a = 1),
SQL("1")
)
expect_equal(
sqlInterpolate(ANSI(), "\"\""),
SQL("\"\"")
)
expect_error(
sqlInterpolate(ANSI(), "\""),
"Unterminated literal"
)
expect_equal(
sqlInterpolate(ANSI(), "?a\"\"?b", a = 1, b = 2),
SQL("1\"\"2")
)
expect_equal(
sqlInterpolate(ANSI(), "--"),
SQL("--")
)
expect_equal(
sqlInterpolate(
ANSI(),
"SELECT *\n--comment\n--consecutive comment with '\nFROM mytable"
),
SQL("SELECT *\n--comment\n--consecutive comment with '\nFROM mytable")
)
expect_error(
sqlInterpolate(ANSI(), "/*"),
"Unterminated comment"
)
# Test escaping rules
expect_identical(
sqlParseVariablesImpl(
"?a '?b\\'?c' ?d '''' ?e",
list(
sqlQuoteSpec("'", "'", escape = "\\", doubleEscape = FALSE)
),
list()
),
list(
start = c(1L, 13L, 21L),
end = c(2L, 14L, 22L)
)
)
})
|
