/usr/share/doc/r-cran-igraph/tests/testthat/test_graph.compose.R is in r-cran-igraph 1.1.2-2ubuntu3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | context("compose")
test_that("compose works", {
library(igraph)
g1 <- sample_gnp(50, 3/50, directed=TRUE)
gi <- graph( rep(1:vcount(g1), each=2), dir=TRUE )
g2 <- compose(g1, gi)
g3 <- compose(gi, g1)
expect_that(graph.isomorphic(g1, g2), is_true())
expect_that(graph.isomorphic(g1, g3), is_true())
})
|