tests/testthat/test_workspace.R

In azuremlsdk: Interface to the 'Azure Machine Learning' 'SDK'

context("Workspace")
source("utils.R")

subscription_id <- Sys.getenv("TEST_SUBSCRIPTION_ID")
resource_group <- Sys.getenv("TEST_RESOURCE_GROUP")
location <- Sys.getenv("TEST_LOCATION")

test_that("create, get, save, load and delete workspace", {
  skip('skip')
  # create workspace
  workspace_name <- paste0("test_ws", build_num)
  existing_ws <- create_workspace(workspace_name,
                                  subscription_id = subscription_id,
                                  resource_group = resource_group,
                                  location = location)
    
  # retrieve workspace
  ws <- get_workspace(workspace_name,
                      subscription_id = subscription_id,
                      resource_group = resource_group)
  expect_equal(ws$name, existing_ws$name)
  get_workspace_details(ws)
  kv <- get_default_keyvault(ws)
  expect_equal(length(kv$list_secrets()), 0)
    
  # write config
  write_workspace_config(existing_ws)
    
  # load from config
  loaded_ws <- load_workspace_from_config(".")
  expect_equal(loaded_ws$name, workspace_name)

  # delete workspace
  delete_workspace(existing_ws)
    
  # negative testing
  ws <- get_workspace("random", subscription_id = subscription_id)
  expect_equal(ws, NULL)
})