tests/testthat/test_320_stmt_insert.R

In sqlq: 'SQL' Query Builder

testthat::context("Statement Insert class")

testthat::test_that("We can generate a simple INSERT statement", {
  fields <- ExprListFields$new(list(ExprField$new("author"),
                                    ExprField$new("title")))
  x <- StmtInsert$new(tabl="books", fields=fields)
  testthat::expect_equal(x$toString(), 'INSERT INTO books (author, "title")')
})