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()) })