Modify tests to reflect that azureCheckToken() return logical value

microsoft · Feb 13, 2017 · 11f2997 · 11f2997
1 parent 2029687
commit 11f2997
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-1-authentication.R b/tests/testthat/test-1-authentication.R
@@ -39,7 +39,7 @@ test_that("Can connect to workspace with config file", {
   expect_equal(ncol(res), 7)
 
   res <- azureCheckToken(asc)
-  expect_equal(res, "OK")
+  expect_true(res)
 
   res <- azureListSA(asc, resourceGroup = "advdsvmlinux1")
   expect_is(res, "data.frame")