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
|
test_that("identifier", {
expect_equal(dbQuoteIdentifier(ANSI(), character()), SQL(character()))
expect_equal(dbQuoteIdentifier(ANSI(), "a"), SQL('"a"'))
expect_equal(dbQuoteIdentifier(ANSI(), "a b"), SQL('"a b"'))
expect_equal(dbQuoteIdentifier(ANSI(), SQL('"a"')), SQL('"a"'))
expect_equal(dbQuoteIdentifier(ANSI(), SQL('"a b"')), SQL('"a b"'))
})
test_that("identifier names", {
expect_equal(
dbQuoteIdentifier(ANSI(), setNames(character(), character())),
SQL(character(), names = character())
)
expect_equal(dbQuoteIdentifier(ANSI(), c(a = "a")), SQL('"a"', names = "a"))
expect_equal(
dbQuoteIdentifier(ANSI(), c(ab = "a b")),
SQL('"a b"', names = "ab")
)
expect_equal(
dbQuoteIdentifier(ANSI(), SQL('"a"', names = "a")),
SQL('"a"', names = "a")
)
expect_equal(
dbQuoteIdentifier(ANSI(), SQL('"a b"', names = "ab")),
SQL('"a b"', names = "ab")
)
})
test_that("SQL names", {
expect_null(names(SQL(letters)))
expect_equal(names(SQL(letters, names = LETTERS)), LETTERS)
expect_null(names(SQL(setNames(letters, LETTERS))))
})
test_that("unquote Id", {
expect_equal(
dbUnquoteIdentifier(ANSI(), Id(table = "a")),
list(Id(table = "a"))
)
expect_equal(
dbUnquoteIdentifier(ANSI(), Id(table = "a", schema = "b")),
list(Id(table = "a", schema = "b"))
)
expect_equal(
dbUnquoteIdentifier(ANSI(), Id(table = "a", schema = "b", catalog = "c")),
list(Id(table = "a", schema = "b", catalog = "c"))
)
})
|
