context("Bug 1073800 from Launchpad")
test_that("Largest cliques is correct", {
library(igraph)
unvs <- function(x) lapply(x, . %>% as.vector %>% sort)
adj <- matrix(1, nrow=11, ncol=11) - diag(11)
g <- graph_from_adjacency_matrix(adj)
lc <- suppressWarnings(largest_cliques(g))
expect_that(unvs(lc), equals(list(1:11)))
})
Generated by dwww version 1.15 on Sun Jun 16 13:39:52 CEST 2024.