tests/testthat/test-ns-auth.R

In nettskjemar: Connect to the 'nettskjema.no' API of the University of Oslo

test_that("test request setup", {
  vcr::use_cassette("ns_auth", {
    auth <- ns_req()
  })

  expect_is(auth, "httr2_request")
  expect_equal(
    names(auth),
    c(
      "url",
      "method",
      "headers",
      "body",
      "fields",
      "options",
      "policies",
      "state"
    )
  )
  expect_null(auth$body)
  expect_match(auth$url, "https://api.nettskjema.no/v3")
  expect_match(names(auth$headers), "Authorization")
})

test_that("test token setup", {
  vcr::use_cassette("ns_token", {
    token <- ns_auth_token()
  })

  expect_is(token, "list")
  expect_equal(
    names(token),
    c("access_token", "token_type", "expires_in")
  )
  expect_match(token$token_type, "Bearer")

  # TODO: how to test chaching?
})