tests/testthat/test_120_expr_field.R

In sqlq: 'SQL' Query Builder

testthat::context("ExprField class")

testthat::test_that("Initializer works fine", {
  testthat::expect_error(ExprField$new())
  testthat::expect_error(ExprField$new(tabl = "a"))
  testthat::expect_error(ExprField$new(""))
  ExprField$new("a")
})

testthat::test_that("Conversion to string works fine", {
  testthat::expect_equal(ExprField$new("a")$toString(), "a")
  testthat::expect_equal(ExprField$new("a_b")$toString(), "a_b")
  testthat::expect_equal(ExprField$new("a b")$toString(), '"a b"')
})