Added context for each test item

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,