/usr/lib/R/site-library/igraph/tests/test_layout.merge.R is in r-cran-igraph 0.7.1-1.
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 17 18 19 20 21 22 23 24 25 26 | context("layout.merge")
test_that("layout.merge works", {
library(igraph)
set.seed(42)
g <- list(graph.ring(10), graph.ring(5))
l <- lapply(g, layout.mds)
l
lm <- layout.merge(g, l)
expect_that(is.matrix(lm), is_true())
expect_that(ncol(lm), equals(2))
expect_that(nrow(lm), equals(sum(sapply(g, vcount))))
##########
## Stress test
for (i in 1:10) {
g <- erdos.renyi.game(100, 2/100)
l <- layout.mds(g)
expect_that(dim(l), equals(c(vcount(g), 2)))
}
})
|