tests/testthat/test-00-connectiondb.R

In stacomirtools: Connection Class for Package stacomiR

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)
		})