context("compose")
test_that("compose works", {
library(igraph)
g1 <- sample_gnp(50, 3/50, directed=TRUE)
gi <- graph( rep(1:vcount(g1), each=2), directed=TRUE )
g2 <- compose(g1, gi)
g3 <- compose(gi, g1)
expect_true(graph.isomorphic(g1, g2))
expect_true(graph.isomorphic(g1, g3))
})
Generated by dwww version 1.15 on Sun Jun 16 13:14:21 CEST 2024.