New ARM test script test-6-ARM.R

tests/testthat/test-6-ARM.R

@@ -0,0 +1,116 @@
+if (interactive()) library("testthat")
+
+settingsfile <- system.file("tests/testthat/config.json", package = "AzureSMR")
+config <- read.AzureSMR.config(settingsfile)
+
+#  ------------------------------------------------------------------------
+
+context("ARM")
+
+asc <- createAzureContext()
+with(config,
+     setAzureContext(asc, tenantID = tenantID, clientID = clientID, authKey = authKey)
+)
+
+azureAuthenticate(asc, verbose = FALSE)
+
+timestamp <- format(Sys.time(), format = "%y%m%d%H%M")
+resourceGroup_name <- paste0("AzureSMtest_", timestamp)
+
+test_that("Can create resource group", {
+  skip_if_missing_config(settingsfile)
+
+  res <- azureCreateResourceGroup(asc, location = "centralus", resourceGroup = resourceGroup_name)
+  expect_true(res)
+
+  wait_for_azure(
+    resourceGroup_name %in% azureListRG(asc)$resourceGroup
+  )
+  expect_true(resourceGroup_name %in% azureListRG(asc)$resourceGroup)
+})
+
+context("Submit resource template from inline JSON - Create storage acc")
+
+paramJSON1 <- '
+"parameters"          : {
+  "storageAccountType"    : {"value": "Standard_GRS"}
+  }'
+  
+templateJSON1 <- '
+{
+  "$schema": "https://schema.management.azure.com/schemas/2015-01-01/deploymentTemplate.json#",
+  "contentVersion": "1.0.0.0",
+  "parameters": {
+  "storageAccountType": {
+  "type": "string",
+  "defaultValue": "Standard_LRS",
+  "allowedValues": [
+  "Standard_LRS",
+  "Standard_GRS",
+  "Standard_ZRS",
+  "Premium_LRS"
+  ],
+  "metadata": {
+  "description": "Storage Account type"
+  }
+  }
+  },
+  "variables": {
+  "storageAccountName": "[uniquestring(resourceGroup().id)]"
+  },
+  "resources": [
+  {
+  "type": "Microsoft.Storage/storageAccounts",
+  "name": "[uniquestring(resourceGroup().id)]",
+  "apiVersion": "2016-01-01",
+  "location": "[resourceGroup().location]",
+  "sku": {
+  "name": "Standard_GRS"
+  },
+  "kind": "Storage", 
+  "properties": {
+  }
+  }
+  ],
+  "outputs": {
+  "storageAccountName": {
+  "type": "string",
+  "value": "[uniquestring(resourceGroup().id)]"
+  }
+  }
+  }
+'
+res <- azureDeployTemplate(asc,deplname = "Deploy1",templateJSON=templateJSON1 ,paramJSON = paramJSON1,resourceGroup = resourceGroup_name,verbose = FALSE)
+expect_true(res)
+
+context("Submit resource template from URL JSON - Create scaleset with jumpbox")
+
+paramJSON2 <- '
+"parameters"          : {
+"vmssName": {
+      "value": "azuresmrvmss"
+    },
+    "instanceCount": {
+      "value": 2
+    },
+    "adminUsername": {
+      "value": "ubuntu"
+    },
+    "adminPassword": {
+      "value": "Password123"
+}
+  }'
+
+tempURL = "https://raw.githubusercontent.com/Azure/azure-quickstart-templates/master/201-vmss-linux-jumpbox/azuredeploy.json"
+res <- azureDeployTemplate(asc,deplname = "Deploy3",templateURL = tempURL ,paramJSON = paramJSON2,resourceGroup = resourceGroup_name,verbose = FALSE)
+expect_true(res)
+
+context(" - delete resource group")
+test_that("Can delete resource group", {
+  skip_if_missing_config(settingsfile)
+  
+  expect_message({
+    res <- azureDeleteResourceGroup(asc, resourceGroup = resourceGroup_name)
+  }, "Delete Request Submitted"
+  )
+})