1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
test_that("new token computes expires_at", {
withr::local_envvar(TZ = "UTC")
time <- .POSIXct(1740000000)
token <- oauth_token("xyz", expires_in = 10, .date = time)
expect_s3_class(token, "httr2_token")
expect_equal(token$expires_at, as.numeric(time + 10))
expect_snapshot(token)
})
test_that("printing token redacts access, id and refresh token", {
expect_snapshot({
oauth_token(
access_token = "secret",
refresh_token = "secret",
id_token = "secret"
)
})
})
test_that("can compute token expiry", {
token <- oauth_token("xyz")
expect_equal(token_has_expired(token), FALSE)
# Respects delay
token <- oauth_token("xyz", expires_in = 8, .date = Sys.time() - 10)
expect_equal(token_has_expired(token), TRUE)
token <- oauth_token("xyz", expires_in = 10, .date = Sys.time())
expect_equal(token_has_expired(token), FALSE)
})
|
