tests/testthat/test-balance_scores.R

In signnet: Methods to Analyse Signed Networks

test_that("triangle balance index works", {
    g <- igraph::graph.full(5)
    igraph::E(g)$sign <- 1
    expect_equal(balance_score(g, method = "triangles"), 1)
})

test_that("walk balance index works", {
    g <- igraph::graph.full(5)
    igraph::E(g)$sign <- 1
    expect_equal(balance_score(g, method = "walk"), 1)
})

test_that("frustration balance index works", {
    g <- igraph::graph.full(5)
    igraph::E(g)$sign <- 1
    expect_equal(balance_score(g, method = "frustration"), 1)
})


test_that("directed check works", {
    g <- igraph::graph.full(5, directed = TRUE)
    igraph::E(g)$sign <- 1
    expect_error(balance_score(g))
})

test_that("sign check works", {
    g <- igraph::graph.full(5, directed = FALSE)
    expect_error(balance_score(g))
})

test_that("wrong sign values check works", {
    g <- igraph::graph.full(5, directed = FALSE)
    igraph::E(g)$sign <- 2
    expect_error(balance_score(g))
})

test_that("frustration exact error handling", {
    g <- igraph::graph.full(5, directed = FALSE)
    igraph::E(g)$sign <- 2
    expect_error(frustration_exact(g))
    g <- igraph::graph.full(5, directed = TRUE)
    igraph::E(g)$sign <- 1
    expect_error(frustration_exact(g))
})