tests/testthat/test-class-member.R

In sevenbridges2: The 'Seven Bridges Platform' API Client

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

  # Item object class and methods are set
  checkmate::assert_r6(
    setup_project_member_object,
    classes = c("Item", "Member"),
    public = c(
      "id", "username", "email", "type", "permissions", "href",
      "auth", "response", "print"
    )
  )

  # Item object class and methods are set
  checkmate::assert_r6(
    setup_volume_member_object,
    classes = c("Item", "Member"),
    public = c(
      "id", "username", "email", "type", "permissions", "href",
      "auth", "response", "print"
    )
  )
})

test_that("Member print method works", {
  testthat::skip_on_ci()
  testthat::skip_on_cran()
  testthat::expect_snapshot(setup_project_member_object$print())
})