tests/testthat/test_crud_simple_create.R

In akirocode/tblCrud: Sync data.frames and tables by SQL

library(DBI)
library(RSQLite)

context("query_create_get")

con <- dbConnect(drv=dbDriver("SQLite"), con =":memory:")

test_that("query_create_get create the iris query",{
	tablename <- "iris2"
	iris

	query <- query_create_get(con, iris, tablename)

	expected <- "CREATE TABLE IF NOT EXISTS  iris2  (
 rownames integer primary key asc autoincrement,
  `Sepal.Length` REAL,
  `Sepal.Width` REAL,
  `Petal.Length` REAL,
  `Petal.Width` REAL,
  `Species` TEXT );"
  expect_equal(query, expected)

})

dbDisconnect(con)