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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.