Nothing
context("ConnectionDB")
test_that("Test that ConnectionDB returns a pool object and closes ", {
skip_on_cran()
env_set_test_stacomi()
object<-new("ConnectionDB")
object@dbname <- "bd_contmig_nat"
object@host <- host
object@port <- "5432"
object@user <- user
object@password <- password
object <- connect(object)
expect_true(pool::dbGetInfo(object@connection)$valid)
pool::poolClose(object@connection)
expect_error(pool::dbGetInfo(object@connection)$valid)
})
test_that("Test that ConnectionDB returns a pool object and closes when connected as iav on localhost", {
skip_on_cran()
env_set_test_stacomi()
object<-new("ConnectionDB")
object@dbname <- "bd_contmig_nat"
object@host <- "localhost"
object@port <- "5432"
object@user <- "iav"
object@password <- "iav"
object <- connect(object)
expect_true(pool::dbGetInfo(object@connection)$valid)
pool::poolClose(object@connection)
expect_error(pool::dbGetInfo(object@connection)$valid)
})
test_that("Test that ConnectionDB returns a pool object and closes when connected as iav on localhost", {
skip_on_cran()
env_set_test_stacomi()
object<-new("ConnectionDB")
object@dbname <- "bd_contmig_nat"
object@host <- "localhost"
object@port <- "5432"
object@user <- "iav"
object@password <- "iav"
object <- connect(object)
expect_true(pool::dbGetInfo(object@connection)$valid)
pool::poolClose(object@connection)
expect_error(pool::dbGetInfo(object@connection)$valid)
})
test_that("Test that ConnectionDB returns a pool object and closes when connected as iav on localhost using base", {
skip_on_cran()
env_set_test_stacomi()
o <- options(
stacomiR.dbname = "bd_contmig_nat",
stacomiR.host = "localhost",
stacomiR.port = "5432",
stacomiR.user = "",
stacomiR.password = ""
)
object<-new("ConnectionDB")
object <- connect(object,c("bd_contmig_nat", "localhost","5432","iav","iav"))
expect_true(pool::dbGetInfo(object@connection)$valid)
pool::poolClose(object@connection)
expect_error(pool::dbGetInfo(object@connection)$valid)
options(o)
})
test_that("Test that ConnectionDB returns a pool object", {
skip_on_cran()
env_set_test_stacomi()
object<-new("ConnectionDB")
object@dbname <- "bd_contmig_nat"
object@host <- host
object@port <- "5432"
object@user <- user
object@password <- password
object <- connect(object)
expect_that(object@connection,is_a("Pool"))
pool::poolClose(object@connection)
})
test_that("Test that ConnectionDB works when a base is passed to connect", {
skip_on_cran()
env_set_test_stacomi()
object<-new("ConnectionDB")
base <- c("bd_contmig_nat",host,"5432",user,password)
object <- connect(object,base)
expect_that(object@connection,is_a("Pool"))
pool::poolClose(object@connection)
})
test_that("Test that ConnectionDB works when using options", {
skip_on_cran()
env_set_test_stacomi()
o <- options()
options(
stacomiR.dbname = "bd_contmig_nat",
stacomiR.host = host,
stacomiR.port = "5432",
stacomiR.user = user,
stacomiR.password = password
)
object <-new("ConnectionDB")
object <- connect(object)
expect_that(object@connection,is_a("Pool"))
pool::poolClose(object@connection)
options(o)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.