context("test-sqp_login.R")
test_that("login fails with random account", {
expect_error(sqp_login("cimentadaj", "ho"),
"^Failed to login with that username/password")
})
sqp_env$token <- NULL
test_that("login succeeds with environment variables", {
expect_silent(sqp_login())
expect_false(sqp_env$token == "")
})
sqp_env$token <- NULL
test_that("login succeeds with variables as", {
user <- Sys.getenv("SQP_USER")
pw <- Sys.getenv("SQP_PW")
options(SQP_USER = user, SQP_PW = pw)
expect_silent(sqp_login())
expect_false(sqp_env$token == "")
Sys.setenv("SQP_USER" = user)
Sys.setenv("SQP_PW" = pw)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.