context("make_de_bruijn_graph")
test_that("make_de_bruijn_graph works", {
library(igraph)
g <- make_de_bruijn_graph(2,1)
g2 <- make_de_bruijn_graph(2,2)
g3 <- make_line_graph(g)
expect_true(graph.isomorphic(g3, graph(c(1,1,3,1,1,2,3,2,2,3,
4,3,2,4,4,4))))
expect_true(graph.isomorphic(g2, g3))
})
Generated by dwww version 1.15 on Fri May 24 06:52:34 CEST 2024.