tests/testthat/test-sql.R

In tidyverse/dbplyr: A 'dplyr' Back End for Databases

test_that("can concatenate sql vector without supplying connection", {
  expect_equal(c(sql("x")), sql("x"))
  expect_equal(c(sql("x"), "x"), sql("x", "'x'"))
  expect_equal(c(ident("x")), sql("`x`"))
})

test_that("can format sql", {
  expect_snapshot(sql())
  expect_snapshot(sql(a = "x", "y"))
})