tests/testthat/test-vault-policy.R

In vimc/vaultr: Vault Client for Secrets and Sensitive Data

test_that("read policy", {
  srv <- test_vault_test_server()
  cl <- srv$client()

  ## There's not much we can take from this one yet - this gets a
  ## better test after we start *writing* policies
  rules <- cl$policy$read("default")
  expect_type(rules, "character")
})


test_that("write_policy", {
  srv <- test_vault_test_server()
  cl <- srv$client()

  rules <- paste('path "secret/*" {',
                 '  policy = "read"',
                 "}",
                 sep = "\n")
  cl$policy$write("read-secret", rules)
  expect_true("read-secret" %in% cl$policy$list())
  expect_equal(cl$policy$read("read-secret"), rules)
  cl$policy$delete("read-secret")
  expect_false("read-secret" %in% cl$policy$list())
})