context("graph_from_adj_list")
test_that("graph_from_adj_list works", {
library(igraph)
g <- sample_gnp(100, 3/100)
al <- as_adj_list(g)
g2 <- graph_from_adj_list(al, mode="all")
expect_true(graph.isomorphic(g, g2))
##
g <- sample_gnp(100, 3/100, directed=TRUE)
al <- as_adj_list(g, mode="out")
g2 <- graph_from_adj_list(al, mode="out")
expect_true(graph.isomorphic(g, g2))
})
Generated by dwww version 1.15 on Sat May 18 10:59:11 CEST 2024.