tests/testthat/test_session.R

In jmarca/rstats_couch_utils: collection of R scripts to help accessing CouchDB

config <- get.config(Sys.getenv('RCOUCHUTILS_TEST_CONFIG'))

test_that("can establish a session",{

    h <- RCurl::getCurlHandle()

    res <- couch.session(h)

    expect_that(res,is_a('list'))
    expect_that(names(res),equals(c('ok','name','roles')))
    expect_that(res$ok,equals(TRUE))

})