context("articulation_points")
test_that("articulation_points works", {
library(igraph)
g <- make_full_graph(5) + make_full_graph(5)
clu <- components(g)$membership
g <- add_edges(g, c(match(1,clu), match(2,clu)) )
ap <- as.vector(articulation_points(g))
deg <- degree(g)
expect_that(sort(which(deg==max(deg))), equals(sort(ap)))
})
Generated by dwww version 1.15 on Sat May 18 12:48:45 CEST 2024.