tests/testthat/test-sql-build.R

In dbplyr: A 'dplyr' Back End for Databases

test_that("rendering table wraps in SELECT *", {
  out <- copy_to_test("sqlite", tibble(x = 1), name = "test-sql-build")
  expect_snapshot(out %>% sql_render())
  expect_equal(out %>% collect(), tibble(x = 1))
})