tests/testthat/test_110_expr_value.R

In sqlq: 'SQL' Query Builder

testthat::context("ExprValue class")

testthat::test_that("Conversion to string works fine", {
  testthat::expect_equal(ExprValue$new("")$toString(), "''")
  testthat::expect_equal(ExprValue$new('"')$toString(), "'\"'")
  testthat::expect_equal(ExprValue$new("'")$toString(), "''''")
  testthat::expect_equal(ExprValue$new("a")$toString(), "'a'")
  testthat::expect_equal(ExprValue$new(10L)$toString(), "10")
  testthat::expect_equal(ExprValue$new(10)$toString(), "10")
  testthat::expect_equal(ExprValue$new(1.2)$toString(), "1.2")
})