tests/testthat/test_002_utils.R

In sqlq: 'SQL' Query Builder

testthat::context("utils")

testthat::test_that("quote_ids() function works fine.", {
  testthat::expect_equal(quote_ids("a"), "a")
  testthat::expect_equal(quote_ids("ab"), "ab")
  testthat::expect_equal(quote_ids("a1"), "a1")
  testthat::expect_equal(quote_ids("0"), '"0"')
  testthat::expect_equal(quote_ids("0a"), '"0a"')
  testthat::expect_equal(quote_ids("a_b"), 'a_b')
  testthat::expect_equal(quote_ids("a b"), '"a b"')
  testthat::expect_equal(quote_ids(c("a", "a b")), c("a", '"a b"'))
})