context("Graph file formats")
test_that("reading GraphML file works", {
skip_if_no_graphml()
g <- read_graph(f <- gzfile("zachary.graphml.gz"), format="graphml")
g2 <- make_graph("zachary")
expect_true(isomorphic(g2, g))
})
Generated by dwww version 1.15 on Sun Jun 16 15:11:31 CEST 2024.