tests/testthat/test-credentials.R

In copernicusR: R Interface to Copernicus Marine Service

test_that("copernicus_clear_credentials works", {
  # Set some test credentials first
  options(copernicus.username = "test_user")
  options(copernicus.password = "test_pass")

  # Clear credentials - don't expect specific output during R CMD check
  suppressMessages(copernicus_clear_credentials())

  # Check they're cleared (this is the important part)
  expect_null(getOption("copernicus.username"))
  expect_null(getOption("copernicus.password"))
})

test_that("copernicus_get_credentials retrieves stored credentials", {
  # Clear first
  suppressMessages(copernicus_clear_credentials())

  # Set test credentials in options
  options(copernicus.username = "test_user")
  options(copernicus.password = "test_pass")

  # Get credentials (masked)
  creds_masked <- copernicus_get_credentials(mask_password = TRUE)
  expect_equal(creds_masked$username, "test_user")
  expect_equal(creds_masked$password, "***MASKED***")

  # Get credentials (unmasked)
  creds_unmasked <- copernicus_get_credentials(mask_password = FALSE)
  expect_equal(creds_unmasked$username, "test_user")
  expect_equal(creds_unmasked$password, "test_pass")

  # Clean up
  suppressMessages(copernicus_clear_credentials())
})

test_that("copernicus_get_credentials falls back to environment variables", {
  # Clear options
  suppressMessages(copernicus_clear_credentials())

  # Use withr for environment isolation
  withr::with_envvar(
    c(COPERNICUS_USERNAME = "env_user", COPERNICUS_PASSWORD = "env_pass"),
    {
      # Get credentials
      creds <- copernicus_get_credentials(mask_password = FALSE)
      expect_equal(creds$username, "env_user")
      expect_equal(creds$password, "env_pass")
    }
  )
})

test_that("copernicus_setup_credentials stores credentials correctly", {
  # Clear first
  suppressMessages(copernicus_clear_credentials())

  # Setup credentials without prompting - suppress messages for R CMD check
  suppressMessages(
    copernicus_setup_credentials("test_user", "test_pass",
                                 store_credentials = TRUE,
                                 prompt_if_missing = FALSE)
  )

  # Check they're stored (this is what matters)
  expect_equal(getOption("copernicus.username"), "test_user")
  expect_equal(getOption("copernicus.password"), "test_pass")

  # Clean up
  suppressMessages(copernicus_clear_credentials())
})

test_with_clean_state("copernicus_setup_credentials handles missing credentials", {
  # Setup without credentials and without prompting - capture warning instead of output
  expect_warning(
    suppressMessages(copernicus_setup_credentials(prompt_if_missing = FALSE)),
    "Copernicus credentials not fully configured"
  )
})

test_with_clean_state("copernicus_validate_credentials handles missing credentials", {
  # Should return FALSE with no credentials - don't rely on message output
  result <- suppressMessages(copernicus_validate_credentials())
  expect_false(result)
})

test_that("copernicus_validate_credentials works with stored credentials", {
  # Set test credentials
  options(copernicus.username = "test_user")
  options(copernicus.password = "test_pass")

  # Should return TRUE (mock validation) - suppress messages for R CMD check
  result <- suppressMessages(copernicus_validate_credentials())
  expect_true(result)

  # Clean up
  suppressMessages(copernicus_clear_credentials())
})

test_that("copernicus_set_env_credentials validates input", {
  # Should error with missing arguments
  expect_error(
    copernicus_set_env_credentials(),
    "Both username and password are required"
  )

  expect_error(
    copernicus_set_env_credentials("user"),
    "Both username and password are required"
  )
})