context("edgelist")
test_that("as_edgelist works", {
library(igraph)
g <- sample_gnp(100, 3/100)
e <- as_edgelist(g)
g2 <- graph(t(e), n=vcount(g), dir=FALSE)
expect_true(graph.isomorphic(g, g2))
})
Generated by dwww version 1.15 on Sun Jun 23 21:02:02 CEST 2024.