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
32
33
34
35
36
37
38
|
test_that("cache considers refresh_token", {
client <- oauth_client("example", "https://example.com/get_token")
req <- request("https://example.com")
# create 2 requests with different refresh token
req1 <- req %>%
req_oauth_refresh(client, refresh_token = "rt1")
req2 <- req %>%
req_oauth_refresh(client, refresh_token = "rt2")
# cache must be empty
expect_equal(req1$policies$auth_sign$cache$get(), NULL)
expect_equal(req2$policies$auth_sign$cache$get(), NULL)
# simulate that we made a request and got back a token
token <- oauth_token(
access_token = "a",
token_type = "bearer",
expires_in = NULL,
refresh_token = "rt1",
.date = Sys.time()
)
# ... that is now cached
req1$policies$auth_sign$cache$set(token)
# req1 cache must be filled, but req2 cache still be empty
expect_equal(req1$policies$auth_sign$cache$get(), token)
expect_equal(req2$policies$auth_sign$cache$get(), NULL)
})
test_that("warns if refresh token changes", {
client <- oauth_client("example", "https://example.com/get_token")
local_mocked_bindings(
token_refresh = function(...) list(refresh_token = "def")
)
expect_snapshot(. <- oauth_flow_refresh(client, "abc"))
})
|
