tests/testthat/test_055_token_value.R

In sqlq: 'SQL' Query Builder

testthat::context("TokenValue class")

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