update tests

tests/testthat/test01_resource.R

@@ -46,7 +46,7 @@ test_that("Access policy function works",
         I(c("backup", "delete", "deletesas", "get", "getsas", "list", "listsas",
             "purge", "recover", "regeneratekey", "restore", "set", "setsas", "update")))
 
-    expect_error(vault_access_policy(username)) # must supply GUID or Graph object as principal
+    expect_error(vault_access_policy("user@example.com")) # must supply GUID or Graph object as principal
     expect_error(vault_access_policy(usr, NULL, key_permissions="none"))
     expect_error(vault_access_policy(usr, NULL, secret_permissions="none"))
     expect_error(vault_access_policy(usr, NULL, certificate_permissions="none"))

tests/testthat/test05_storage.R

@@ -14,7 +14,7 @@ if(tenant == "" || app == "" || password == "" || vaultname == "" ||
 
 # currently storage acct management requires a user principal, not svc principal
 #vault <- key_vault(vaultname, tenant=tenant, app=app, password=password)
-vault <- key_vault(vaultname)
+vault <- key_vault(vaultname, tenant=tenant)
 
 try({
     vault$storage$remove("stor1", confirm=FALSE)