tests/testthat/test-ns-me.R

In LCBC-UiO/nettskjemar: Connect to the 'nettskjema.no' API of the University of Oslo

test_that("test user information", {
  vcr::use_cassette("ns_get_me", {
    me <- ns_get_me()
  })

  expect_is(me, "list")
  expect_length(me, 10)
  expect_equal(
    names(me),
    c(
      "isPersonalDataResponsible",
      "displayName",
      "logoutLink",
      "isSuperUser",
      "isAuthenticated",
      "userType",
      "hasAcceptedTos",
      "isSupportUser",
      "isAdministrativeUser",
      "isInLdapGroupUioTils"
    )
  )
  expect_is(me$isPersonalDataResponsible, "logical")
  expect_is(me$isAuthenticated, "logical")
  expect_is(me$isAdministrativeUser, "logical")
  expect_is(me$displayName, "character")
  expect_match(
    me$displayName,
    "^[[:alnum:].-_]+@[[:alnum:].-]+$"
  )
})