From 796698ce16480b7fe50e3a22cda30cd98508d297 Mon Sep 17 00:00:00 2001 From: yueguoguo Date: Wed, 21 Jun 2017 11:40:10 +0800 Subject: [PATCH] Added context for each test item --- tests/testthat/test-3-operation.R | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tests/testthat/test-3-operation.R b/tests/testthat/test-3-operation.R index aafaca8..971d338 100644 --- a/tests/testthat/test-3-operation.R +++ b/tests/testthat/test-3-operation.R @@ -34,7 +34,7 @@ dsvm_name <- paste0("dsvm", dsvm_password <- "AzureDSVM_test123" dsvm_username <- "dsvmuser" -context("Operate a DSVM") +context("Check status of a DSVM") test_that("- check status of a DSVM", { deployDSVM(asc, @@ -58,6 +58,8 @@ test_that("- check status of a DSVM", { }) +context("Stop a DSVM") + test_that("- stop a DSVM", { res <- operateDSVM(asc, resource.group=resourceGroup_name, @@ -67,6 +69,8 @@ test_that("- stop a DSVM", { expect_true(res) }) +context("Delete a DSVM") + test_that("- delete a DSVM", { res <- operateDSVM(asc, resource.group=resourceGroup_name,