tests/testthat/test-write_db.R

In mdsumner/scdb: Database Backend for Common Form Data

context("write_db")

library(silicate)
test_that("write to db works", {
  write_db(hpoly) %>% expect_s3_class("src") %>% 
    dplyr::tbl("vertex") %>% expect_s3_class("tbl_sql")
  
})