context("Bug 1032819 from Launchpad")
test_that("VF2 isomorphism considers colors", {
library(igraph)
g <- make_full_graph(3)
path <- make_ring(3, circular=F)
V(g)$color <- c(1,1,2)
V(path)$color <- c(1,2,1)
n <- count_subgraph_isomorphisms(path, g, method = "vf2")
expect_that(n, equals(2))
})
Generated by dwww version 1.15 on Sun Jun 16 13:31:04 CEST 2024.