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 Fri Jun 14 21:12:27 CEST 2024.