tests/testthat/test-oauth.R

In connectapi: Utilities for Interacting with the 'Posit Connect' Server API

with_mock_api({
  test_that("we can retrieve the oauth credentials", {
    con <- Connect$new(server = "https://connect.example", api_key = "fake")
    expect_true(validate_R6_class(con, "Connect"))
    credentials <- get_oauth_credentials(con, user_session_token = "user-session-token")
    expect_equal(credentials, 
      list(
        access_token="access-token",
        issued_token_type="urn:ietf:params:oauth:token-type:access_token",
        token_type="Bearer"
      )
    )
  })
})