tests/testthat/test-query-db.R

In poissonconsulting/subfoldr2: Save and Load R Objects

test_that("query-db", {
  sbf_reset()
  sbf_set_main(file.path(withr::local_tempdir(), "output"))
  withr::defer(sbf_reset())

  sbf_create_db()
  test <- tibble::tibble(x = "one")

  expect_identical(sbf_execute_db("CREATE TABLE test (
    x TEXT);"), 0L)

  sbf_save_data_to_db(test)

  sql <- sbf_query_db("SELECT sql FROM sqlite_master")
  expect_s3_class(sql, "data.frame")
  expect_identical(colnames(sql), "sql")
  expect_type(sql$sql, "character")
  expect_gt(length(sql$sql), 0)
})