From 5966d33d43db58af527469650c2b6023759e8199 Mon Sep 17 00:00:00 2001
From: yueguoguo <yueguoguo1024@gmail.com>
Date: Thu, 29 Jun 2017 16:37:38 +0800
Subject: [PATCH] Test on extension success.

---
 tests/testthat/test-7-extensions.R | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/tests/testthat/test-7-extensions.R b/tests/testthat/test-7-extensions.R
index b468a0c..9b41e6a 100644
--- a/tests/testthat/test-7-extensions.R
+++ b/tests/testthat/test-7-extensions.R
@@ -63,4 +63,15 @@ test_that("add an extension", {
   expect_true(res)
 })
 
-azureDeleteResourceGroup(asc, resourceGroup=resourceGroup_name)
+context(" - Succesfully added extension")
+
+test_that("check info of extension", {
+  res <- checkExtensionDSVM(asc,
+                            resource.group = resourceGroup_name, 
+                            hostname = dsvm_name)
+  
+  expect_is(res, "list")
+  expect_identical(res$properties$provisioningState, "Succeeded")
+})
+
+azureDeleteResourceGroup(asc, resourceGroup=resourceGroup_name)
\ No newline at end of file