tests/testthat/test-member_cliques.R

In netrics: Many Ways to Measure and Classify Membership for Networks, Nodes, and Ties

test_that("node_in_roulette works", {
  res <- node_in_roulette(ison_adolescents, num_groups = 3)
  expect_s3_class(res, "node_member")
  expect_length(res, net_nodes(ison_adolescents))
  expect_false(res[1] == res[2])
  expect_output(print(res), "3 groups")
  expect_output(print(summary(res)), "Class A:")
})