tests/testthat/test-sqp_login.R

In recsm-asqme/sqpr: Extract the Quality of your Survey Questions with SQP 3.0

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