tests/testthat/test-5-keys.R

In secret: Share Sensitive Information in R Packages

context("local key")

test_that("can read local key", {

  mockery::stub(local_key, "Sys.getenv", "sdfqrtafgaetsgsfgqr")
  ## Error message is system language dependent
  expect_error(local_key())

  pth <- system.file("user_keys/alice.pem", package = "secret")
  mockery::stub(local_key, "Sys.getenv", pth)
  
  expect_is(local_key(), "key")
})

test_that("can read local key when setting env variable", {

  pth <- system.file("user_keys/alice.pem", package = "secret")
  z <- withr::with_envvar(
    c(USER_KEY = pth),
    local_key()
  )
  expect_is(z, "key")
  expect_is(z, "rsa")

  withr::with_envvar(
    c(USER_KEY = "path/does/not/exist"),
    ## Error message is system language dependent
    expect_error(local_key())
  )
})

test_that("local key paths are used", {

  mockery::stub(local_key, "file.exists", function(...) {
    as.list(...) == "~/.ssh/id_rsa"
  })
  mockery::stub(local_key, "read_key", function(file, password, der) {
    file
  })

  withr::with_envvar(
    c(USER_KEY = NA_character_),
    expect_equal(local_key(), "~/.ssh/id_rsa")
  )

  mockery::stub(local_key, "file.exists", function(...) {
    as.list(...) == "~/.ssh/id_rsa.pem"
  })
  mockery::stub(local_key, "read_key", function(file, password, der) {
    file
  })

  withr::with_envvar(
    c(USER_KEY = NA_character_),
    expect_equal(local_key(), "~/.ssh/id_rsa.pem")
  )

  mockery::stub(local_key, "file.exists", function(...) {
    rep(FALSE, length(list(...)))
  })
  withr::with_envvar(
    c(USER_KEY = NA_character_),
    expect_error(local_key(), "No suitable user key found")
  )
})