tests/testthat/test-member_community.R

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

test_that("node_kernighanlin algorithm works", {
  expect_s3_class(node_in_partition(ison_adolescents), "node_member")
  expect_length(node_in_partition(ison_adolescents), 
                net_nodes(ison_adolescents))
  expect_false(any(node_in_partition(ison_adolescents) > "B"))
})

test_that("node_edge_betweenness algorithm works", {
  expect_s3_class(node_in_betweenness(ison_adolescents), "node_member")
  expect_length(node_in_betweenness(ison_adolescents), 
                net_nodes(ison_adolescents))
})

test_that("node_fast_greedy algorithm works", {
  expect_s3_class(node_in_greedy(ison_southern_women), "node_member")
  expect_length(node_in_greedy(ison_southern_women), 
                net_nodes(ison_southern_women))
})

test_that("node_walktrap algorithm works", {
  expect_s3_class(node_in_walktrap(ison_southern_women), "node_member")
  expect_length(node_in_walktrap(ison_southern_women), 
                net_nodes(ison_southern_women))
})

test_that("node_in_community uses node_in_optimal on small networks", {
  skip_if(format(Sys.time(), "%H") >= "09")
  options(manynet_verbosity = "verbose")
  options(snet_verbosity = "verbose")
  expect_message(node_in_community(manynet::create_ring(10)), "optimal")
  expect_message(node_in_community(manynet::create_ring(200)), "xcluding")
  options(manynet_verbosity = "quiet")
  options(snet_verbosity = "quiet")
})