tests/testthat/test-class-user.R

In sevenbridges2: The 'Seven Bridges Platform' API Client

test_that("User initialization works", {
  # Item object creation works
  testthat::expect_no_error(asUser(auth = setup_auth_object))

  # Item object class and methods are set
  checkmate::assert_r6(
    setup_user_object,
    classes = c("Item", "User"),
    public = c(
      "tags", "role", "zip_code", "country", "state", "city",
      "address", "phone", "affiliation", "last_name", "first_name",
      "email", "username", "URL", "href", "auth", "response", "reload", "print"
    )
  )
})

test_that("User print method works", {
  testthat::skip_on_ci()
  testthat::expect_snapshot(setup_user_object$print())
})