tests/testthat/test02_app_sp.R

In AzureGraph: Simple Interface to 'Microsoft Graph'

context("App creation/deletion")

tenant <- Sys.getenv("AZ_TEST_TENANT_ID")
pemfile <- Sys.getenv("AZ_TEST_CERT_FILE")

if(tenant == "" || pemfile == "")
    skip("App method tests skipped: login credentials not set")

if(!interactive())
    skip("App method tests skipped: must be in interactive session")

scopes <- c("https://graph.microsoft.com/.default", "openid", "offline_access")
token <- AzureAuth::get_azure_token(scopes, tenant, .az_cli_app_id, version=2)
gr <- ms_graph$new(token=token)


test_that("App creation works",
{
    newapp_name <- paste0("AzureRtest_", paste0(sample(letters, 5, TRUE), collapse=""))
    newapp <- gr$create_app(name=newapp_name, create_service_principal=FALSE)
    expect_true(is_app(newapp))
    expect_true(is.character(newapp$password))
    newapp_id <- newapp$properties$appId

    newsvc <- newapp$create_service_principal()
    expect_true(is_service_principal(newsvc))
    expect_true(newsvc$properties$appId == newapp_id)

    newapp2 <- gr$get_app(app_id=newapp_id)
    expect_true(is_app(newapp2) && newapp2$properties$appId == newapp_id)

    newsvc2 <- gr$get_service_principal(app_id=newapp_id)
    expect_true(is_service_principal(newsvc2) && newsvc2$properties$appId == newapp_id)

    newsvc3 <- newapp2$get_service_principal()
    expect_true(is_service_principal(newsvc3) && newsvc3$properties$appId == newapp_id)

    expect_type(newapp$add_password(), "character")
    expect_true(is_app(newapp$update(displayName=paste0(newapp_name, "_update"))))

    Sys.setenv(AZ_TEST_NEWAPP_ID=newapp_id)
})

test_that("App deletion works",
{
    newapp_id <- Sys.getenv("AZ_TEST_NEWAPP_ID")

    expect_silent(gr$delete_service_principal(app_id=newapp_id, confirm=FALSE))
    expect_silent(gr$delete_app(app_id=newapp_id, confirm=FALSE))
})

test_that("App with cert works",
{
    newapp_name <- paste0("AzureRtest_", paste0(sample(letters, 5, TRUE), collapse=""))
    newapp <- gr$create_app(name=newapp_name, create_service_principal=FALSE, certificate=pemfile)
    expect_true(is_app(newapp))
    expect_false(is_empty(newapp$properties$keyCredentials))

    id <- newapp$properties$keyCredentials[[1]]$keyId
    expect_type(id, "character")
    expect_silent(newapp$remove_certificate(id, confirm=FALSE))
    expect_true(is_empty(newapp$properties$keyCredentials))

    expect_silent(newapp$add_certificate(pemfile))
    expect_false(is_empty(newapp$properties$keyCredentials))

    id <- newapp$properties$keyCredentials[[1]]$keyId
    expect_type(id, "character")
    expect_silent(newapp$remove_certificate(id, confirm=FALSE))
    expect_true(is_empty(newapp$properties$keyCredentials))

    cert <- openssl::read_cert(pemfile)
    expect_silent(newapp$add_certificate(cert))
    expect_false(is_empty(newapp$properties$keyCredentials))

    expect_silent(newapp$delete(confirm=FALSE))
})