tests/testthat/unit_tests/test-set-credentials.R

In Azure/doAzureParallel: doAzureParallel

# Run this test for users to make sure the set credentials from json or R object features
# of doAzureParallel are still working
context("set credentials from R object scenario test")
test_that("setCredentials_Sdk_Success", {
  testthat::skip("Live test")
  testthat::skip_on_travis()

  # set your credentials
  credentials <- list(
    "sharedKey" = list(
      "batchAccount" = list(
        "name" = "batchaccountname",
        "key" = "batchaccountkey",
        "url" = "https://batchaccountname.region.batch.azure.com"
      ),
      "storageAccount" = list("name" = "storageaccountname",
                              "key" = "storageaccountkey"
      )
    ),
    "githubAuthenticationToken" = ""
  )
  doAzureParallel::setCredentials(credentials)

  # set cluster config
  clusterConfig <- list(
    "name" = "clustername",
    "vmSize" = "Standard_D2_v2",
    "maxTasksPerNode" = 1,
    "poolSize" = list(
      "dedicatedNodes" = list("min" = 0,
                              "max" = 0),
      "lowPriorityNodes" = list("min" = 1,
                                "max" = 1),
      "autoscaleFormula" = "QUEUE"
    ),
    "containerImage" = "rocker/tidyverse:latest",
    "rPackages" = list(
      "cran" = list(),
      "github" = list(),
      "bioconductor" = list()
    ),
    "commandLine" = list()
  )

  source("R\\validationUtilities.R") #import validation R6 object
  source("R\\autoscale.R") #import autoscaleFormula
  validation$isValidClusterConfig(clusterConfig)
})

test_that("SetCredentials_Json_Success", {
  testthat::skip("Live test")
  testthat::skip_on_travis()

  credentialsFileName <- "credentials.json"
  clusterFileName <- "cluster.json"

  doAzureParallel::generateCredentialsConfig(credentialsFileName)
  doAzureParallel::generateClusterConfig(clusterFileName)

  # set your credentials
  doAzureParallel::setCredentials(credentialsFileName)

  source("R\\validationUtilities.R") #import validation R6 object
  source("R\\autoscale.R") #import autoscaleFormula
  validation$isValidClusterConfig(clusterFileName)
})