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())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.