microsoft
/
AzureSMR
зеркало из
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

Rewrote testing conditions

This commit is contained in:
yueguoguo 2017-06-15 11:28:31 +08:00
Родитель 1133535b19
Коммит 82e6cd3dc1
1 изменённых файлов: 22 добавлений и 22 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

44
tests/testthat/test-cost.R
Просмотреть файл

@ -25,9 +25,9 @@ sa_name <- paste0("azuresmr", timestamp)
# run test.
# get cost by day.
# get data consumption by day.
test_that("Get cost by day", {
test_that("Get data consumption by day", {
skip_if_missing_config(settingsfile)
time_end <- paste0(as.Date(Sys.Date()), "00:00:00")
@ -38,7 +38,7 @@ test_that("Get cost by day", {
timeEnd=time_end,
granularity="Daily")
expect_type(res, type="list")
expect_is(res, class="data.frame")
expect_identical(object=names(res), expected=c("usageStartTime",
"usageEndTime",
"meterName",
@ -61,17 +61,17 @@ test_that("Get pricing rates", {
offerId=config$OFFER,
region=config$REGION)
expect_type(res, type="list")
expect_identical(object=names(res), expected=c("EffectiveDate",
"IncludedQuantity",
"MeterCategory",
"MeterId",
"MeterName",
"MeterRegion",
"MeterStatus",
"MeterSubCategory",
"Unit",
"MeterRate"))
expect_is(res, class="data.frame")
expect_identical(object=names(res), expected=c("effectiveDate",
"includedQuantity",
"meterCategory",
"meterId",
"meterName",
"meterRegion",
"meterStatus",
"meterSubCategory",
"unit",
"meterRate"))
})
@ -92,12 +92,12 @@ test_that("Get cost by day", {
offerId=config$OFFER,
region=config$REGION)
expect_type(res, type="list")
expect_identical(object=names(res), expected=c("MeterName",
"MeterCategory",
"MeterSubCategory",
"totalQuantity",
"Unit",
"MeterRate",
"Cost"))
expect_is(res, class="data.frame")
expect_identical(object=names(res), expected=c("meterName",
"meterCategory",
"meterSubCategory",
"quantity",
"unit",
"meterRate",
"cost"))
})