context("identical_graphs")
test_that("identical_graphs works", {
g <- make_ring(5)
g2 <- make_ring(5)
expect_true(identical_graphs(g, g2))
g2 <- make_ring(6)
expect_false(identical_graphs(g, g2))
})
test_that("identical_graphs considers attributes", {
g <- barabasi.game(10)
g2 <- g
expect_true(identical_graphs(g, g2))
g2$m <- 2
expect_false(identical_graphs(g, g2))
expect_true(identical_graphs(g, g2, attrs=FALSE))
})
Generated by dwww version 1.15 on Sun Jun 23 21:26:48 CEST 2024.