tests/testthat/test-set-credentials.R

In neuroconductor-devel/nitrcbot: Download Image Files from the 'NeuroImaging Tools and Resources Collaboratory'

test_that("set_credentials", {
  skip_on_cran()
  skip_on_ci()
  testthat::expect_error(set_credentials(username = "", password = ""), "form_loginname and form_pw are not specified")
  testthat::expect_is(set_credentials(username = "user", password = "pass"), "list")
})

test_that("nitrc_login", {
  skip_on_cran()
  skip_on_ci()
  testthat::expect_is(nitrc_login(), "logical")
})

test_that("check_user_session", {
  skip_on_cran()
  skip_on_ci()
  current_jsessionid = query_nitrc('https://www.nitrc.org/ir/data/JSESSION')
  options("JSESSIONID" = current_jsessionid)
  testthat::expect_true(check_user_session())
  testthat::expect_is(check_user_session(), "logical")
})