tests/testthat/test-9-cost.R

In Microsoft/AzureSMR: Manage and Interact with Azure Resources

# ----------------------------------------------------------------- 
# Test for cost functions.
# ----------------------------------------------------------------- 

# preambles.

if (interactive()) library("testthat")

# settingsfile <- find_config_json()
# config <- read.AzureSMR.config(settingsfile)

settingsfile <- getOption("AzureSMR.config")
config <- read.AzureSMR.config()

# setup.

context("Data consumption and cost")

asc <- createAzureContext()
with(config,
     setAzureContext(asc, tenantID = tenantID, clientID = clientID, authKey = authKey)
)
azureAuthenticate(asc)

timestamp <- format(Sys.time(), format = "%y%m%d%H%M")
resourceGroup_name <- paste0("AzureSMtest_", timestamp)
sa_name <- paste0("azuresmr", timestamp)

time_end   <- sprintf("%s 00:00:00", Sys.Date())
time_start <- sprintf("%s 00:00:00", Sys.Date() - 60)

default <- function(x, def) {
  if(missing(x) || is.null(x) || x == "") def else x
}

  
# run test.

# get data consumption by day.

test_that("Get data consumption by day", {
  skip_if_missing_config(settingsfile)
  
  res <- azureDataConsumption(azureActiveContext = asc,
                              timeStart = time_start,
                              timeEnd = time_end,
                              granularity = "Daily",
                              warn = FALSE)
  
  expect_is(res, class = "data.frame")
  expect_identical(object = names(res), expected = c("usageStartTime", 
                                                 "usageEndTime",
                                                 "meterName", 
                                                 "meterCategory",
                                                 "meterSubCategory",
                                                 "unit",
                                                 "meterId",
                                                 "quantity",
                                                 "meterRegion"))
})

# get pricing rates for meters under subscription.

test_that("Get pricing rates", {
  skip_if_missing_config(settingsfile)
  
  res <- azurePricingRates(azureActiveContext = asc,
                           currency = default(config$CURRENCY, "USD"),
                           locale = default(config$LOCALE, "en-US"),
                           offerId = default(config$OFFER, "MS-AZR-0003p"),
                           region = default(config$REGION, "US")
  )
  
  expect_is(res, class = "data.frame")
  expect_identical(object = names(res), expected = c("effectiveDate", 
                                                 "includedQuantity",
                                                 "meterCategory",
                                                 "meterId",
                                                 "meterName",
                                                 "meterRegion",
                                                 "meterStatus",
                                                 "meterSubCategory",
                                                 "unit",
                                                 "meterRate"))
})


# total expense by day.

test_that("Get cost by day", {
  skip_if_missing_config(settingsfile)
  
  res <- azureExpenseCalculator(azureActiveContext = asc,
                                timeStart = time_start,
                                timeEnd = time_end,
                                granularity = "Daily",
                                currency = default(config$CURRENCY, "USD"),
                                locale = default(config$LOCALE, "en-US"),
                                offerId = default(config$OFFER, "MS-AZR-0003p"),
                                region = default(config$REGION, "US"),
                                warn = FALSE)
  

  expect_is(res, class = "data.frame")
  expect_identical(object = names(res), expected = c("meterName",
                                                 "meterCategory",
                                                 "meterSubCategory",
                                                 "quantity",
                                                 "unit",
                                                 "meterRate",
                                                 "cost"))
})