tests/testthat/test_056_token_keyword.R

In sqlq: 'SQL' Query Builder

testthat::context("TokenKeyword class")

testthat::test_that("Conversion to string works fine", {
  testthat::expect_equal(TokenKeyword$new("")$toString(), "")
  testthat::expect_equal(TokenKeyword$new("a")$toString(), "A")
  testthat::expect_equal(TokenKeyword$new("A")$toString(), "A")
  options(sqlq_uppercase = FALSE)
  testthat::expect_equal(TokenKeyword$new("a")$toString(), "a")
  testthat::expect_equal(TokenKeyword$new("A")$toString(), "a")
  options(sqlq_uppercase = TRUE)
  testthat::expect_equal(TokenKeyword$new("a")$toString(), "A")
  testthat::expect_equal(TokenKeyword$new("A")$toString(), "A")
})