Nothing
context("Windows preset configs")
img_list <- list(
windows_2016=list("MicrosoftWindowsServer", "WindowsServer", "2016-Datacenter"),
windows_2019=list("MicrosoftWindowsServer", "WindowsServer", "2019-Datacenter"),
windows_2019_gen2=list("MicrosoftWindowsServer", "WindowsServer", "2019-Datacenter-gensecond")
)
test_that("VM/SS config works",
{
user <- user_config("username", password="random password")
config_unit_tester(img_list, user)
})
# test that predefined configurations deploy correctly, in parallel ===========
tenant <- Sys.getenv("AZ_TEST_TENANT_ID")
app <- Sys.getenv("AZ_TEST_APP_ID")
password <- Sys.getenv("AZ_TEST_PASSWORD")
subscription <- Sys.getenv("AZ_TEST_SUBSCRIPTION")
if(tenant == "" || app == "" || password == "" || subscription == "")
skip("Tests skipped: ARM credentials not set")
rgname <- paste0("vm", make_name(20))
location <- "australiaeast"
rg <- AzureRMR::az_rm$
new(tenant=tenant, app=app, password=password)$
get_subscription(subscription)$
create_resource_group(rgname, location)
nworkers <- if(Sys.getenv("NOT_CRAN") == "") 2 else 10
cl <- parallel::makeCluster(nworkers)
parallel::clusterExport(cl, "rg", envir=environment())
test_that("VM/SS deployment works",
{
user <- user_config("username",
password=paste0(c(sample(letters, 5, TRUE), sample(LETTERS, 5, TRUE), "!@#"), collapse=""))
size <- "Standard_DS1_v2"
config_integration_tester(img_list, cl, user, size)
})
teardown({
suppressMessages(rg$delete(confirm=FALSE))
parallel::stopCluster(cl)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.