stub out some test cases

R/classes.R

@@ -315,6 +315,7 @@ AzureTokenCLI <- R6::R6Class("AzureTokenCLI",
                 warning = function(cond)
                 {
                     not_found <- grepl("az: not found", cond, fixed = TRUE)
+                    # TODO: handle bash, windows, powershell errors for command not found
                     not_loggedin <- grepl("az login", cond, fixed = TRUE) |
                         grepl("az account set", cond, fixed = TRUE)
                     bad_resource <- grepl(

tests/testthat/test30_azurecli.R

@@ -4,8 +4,32 @@ test_that("cli auth_type can be selected",
     expect_equal(auth_type, "cli")
 })
 
+test_that("token is successfully retrieved if user is logged in",
+{
+    fail("TODO")
+})
+
+test_that("az login is called if the user is not already logged in",
+{
+    fail("TODO")
+})
+
+test_that("the output of az login is handled appropriately",
+{
+    fail("TODO")
+})
+
 test_that("the appropriate error is thrown when az is not installed",
 {
-    # TODO
+    fail("TODO")
+})
+
+test_that("the appropriate error is thrown when the resource is invalid",
+{
+    fail("TODO")
+})
+
+test_that("the appropriate error is thrown when az login fails",
+{
     fail("TODO")
 })