tests/testthat/test-graph.adjlist.R

In igraph: Network Analysis and Visualization

test_that("graph_from_adj_list works", {
  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))
})