tests/testthat/test-Redshift.R

test_that("multiplication works", {

  con <- tryCatch(
    {
      dbConnect(Redshift())
    },
    error = function(...) {
      testthat::skip("Test database not available")
    })

  expect_s4_class(con, "RedshiftConnection")
  dbDisconnect(con)
})

Try the RPostgres package in your browser

Any scripts or data that you put into this service are public.

RPostgres documentation built on May 29, 2024, 3:12 a.m.