context("ends")
test_that("ends works", {
library(igraph)
g <- sample_gnp(100, 3/100)
edges <- unlist(lapply(seq_len(ecount(g)), ends, graph=g))
g2 <- graph(edges, dir=FALSE, n=vcount(g))
expect_true(graph.isomorphic(g, g2))
})
Generated by dwww version 1.15 on Sun Jun 16 10:34:32 CEST 2024.