tests/testthat/test-isSqlReservedWord.R

library(testthat)

test_that("isSqlReservedWord works", {
  expect_true(all(isSqlReservedWord(c("TRUE", "CASE", "IF", "#if", "#IF"))))
  expect_false(any(isSqlReservedWord(c("Tbl1", "#tempTable"))))
  expect_warning(isSqlReservedWord("TRUE", warn = T), "reserved")
})
OHDSI/DatabaseConnector documentation built on Feb. 4, 2025, 10:32 a.m.