tests/testthat/test-structural_equivalence.R

test_that("mse works", {
    library(igraph)
    g1 <- make_full_graph(5, directed = FALSE)
    g2 <- make_full_graph(5, directed = TRUE)
    expect_equal(structural_equivalence(g1), c(1, 1, 1, 1, 1))
    expect_error(structural_equivalence(g2))
})
schochastics/igraphUtils documentation built on Oct. 12, 2024, 12:41 a.m.