context("min_st_separators")
test_that("min_st_separators works", {
library(igraph)
g <- make_graph("Zachary")
msts <- min_st_separators(g)
is <- sapply(msts, is_separator, graph=g)
expect_that(unique(is), equals(TRUE))
## TODO: check that it is minimal
})
Generated by dwww version 1.15 on Fri May 24 06:51:09 CEST 2024.