tests/testthat/test_login.r

In CopernicusMarine: Search Download and Handle Data from Copernicus Marine Service Information

test_that("Login works", {
  skip_on_cran()
  has_account_details()
  expect_true({
    login <- cms_login()
    login$preferred_username == cms_get_username()
  })
})

test_that("Setting username works", {
  skip_on_cran()
  expect_true({
    cms_set_username("henk", "option")
    cms_set_username("henk", "sysenv")
    cms_get_username() == "henk"
  })
})

test_that("Setting password works", {
  skip_on_cran()
  expect_true({
    cms_set_password("foobar", "option")
    cms_set_password("foobar", "sysenv")
    cms_get_password() == "foobar"
  })
})

test_that("Using dummy account details returns NULL", {
  skip_on_cran()
  expect_null({
    cms_set_username("henk", "option")
    cms_set_username("henk", "sysenv")
    cms_set_password("foobar", "option")
    cms_set_password("foobar", "sysenv")
    cms_login() |> suppressMessages()
  })
})