tests/testthat/test-measure_ties.R

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

tie_meas <- funs_objs[grepl("tie_by_", names(funs_objs))]
for(fn in names(tie_meas)) {
  for (ob in names(data_objs)) { 
    test_that(paste(fn, "works on", ob), {
      skip_if_not(packageVersion("manynet") >= "1.7.3")
      expect_s3_class(tie_meas[[fn]](data_objs[[ob]]), "tie_measure")
    })
  }
}