tests/testthat/test-measure_cohesion.R

In manynet: Many Ways to Make, Modify, Map, Mark, and Measure Myriad Networks

test_that("network components works", {
  expect_s3_class(net_components(ison_adolescents), "network_measure")
  expect_equal(as.numeric(net_components(ison_adolescents)), 1)
})

test_that("network cohesion works", {
  expect_s3_class(net_cohesion(ison_southern_women), "network_measure")
  expect_equal(as.numeric(net_cohesion(ison_southern_women)), 2)
})

test_that("network adhesion works", {
  expect_s3_class(net_adhesion(ison_southern_women), "network_measure")
  expect_equal(as.numeric(net_adhesion(ison_southern_women)), 2)
})

test_that("network diameter works", {
  expect_s3_class(net_diameter(ison_southern_women), "network_measure")
  expect_equal(as.numeric(net_diameter(ison_southern_women)), 4)
})

test_that("network length works", {
  expect_s3_class(net_length(ison_southern_women), "network_measure")
  expect_equal(as.numeric(net_length(ison_southern_women)), 2.306, 
               tolerance = 0.001)
})