fix test

tests/testthat/test30_azurecli.R

@@ -1,4 +1,5 @@
-test_that("azure_cli auth_type can be selected", {
-    auth_type <- select_auth_type(auth_type = "azure_cli")
-    expect_equal(auth_type, "azure_cli")
+test_that("azure_cli auth_type can be selected",
+{
+        auth_type <- select_auth_type(auth_type = "cli")
+        expect_equal(auth_type, "cli")
 })