tests really pass

tests/testthat/test10_v1_token.R

@@ -82,7 +82,7 @@ test_that("v1.0 simple authentication works",
 
     dev_tok2 <- get_azure_token(res, tenant, native_app, auth_type="device_code")
     expect_true(is_azure_token(dev_tok2))
-    expect_true(is.numeric(aut_tok2$credentials$expires_at))
+    expect_true(is.numeric(dev_tok2$credentials$expires_at))
     expect_identical(dev_tok2$hash(), dev_hash)
 
     # resource must be a single string

tests/testthat/test20_v2_token.R

@@ -103,9 +103,11 @@ test_that("v2.0 refresh with offline scope works",
     # load cached tokens: should not get repeated login prompts/screens
     aut_tok2 <- get_azure_token(c(res, res2), tenant, native_app, auth_type="authorization_code", version=2)
     expect_true(is_azure_token(aut_tok2))
+    expect_true(is.numeric(aut_tok2$credentials$expires_at))
 
     dev_tok2 <- get_azure_token(c(res, res2), tenant, native_app, auth_type="device_code", version=2)
     expect_true(is_azure_token(dev_tok2))
+    expect_true(is.numeric(dev_tok2$credentials$expires_at))
 
     expect_null(
         delete_azure_token(c(res, res2), tenant, native_app, auth_type="authorization_code", version=2, confirm=FALSE))