/usr/lib/R/site-library/igraph/tests/test_bug-1033045.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 | context("Bug 1033045")
test_that("Minimal s-t separators work", {
library(igraph)
g <- graph.formula(a -- 1:3 -- 5 -- 2:4 -- b, 1 -- 2, 3 -- 4)
stsep <- minimal.st.separators(g)
ims <- sapply(stsep, is.minimal.separator, graph=g)
expect_that(ims, equals(rep(TRUE, 9)))
})
|