tests/testthat/test_340_stmt_create.R

In sqlq: 'SQL' Query Builder

testthat::context("Statement Create class")

testthat::test_that("We can generate a simple CREATE statement", {
  fields_def <- list(ExprFieldDef$new('id', 'integer', primary=TRUE),
                     ExprFieldDef$new('title', 'varchar(200)', nullable=FALSE),
                     ExprFieldDef$new('author', 'varchar(80)'))
  x <- StmtCreate$new(tabl = 'books', fields_def = fields_def)
  testthat::expect_equal(x$toString(),
                         paste("CREATE TABLE books",
                               "(id INTEGER PRIMARY KEY,",
                               '"title" VARCHAR(200) NOT NULL,',
                               "author VARCHAR(80))"))
})