tests/testthat/test-rewire.R

In igraph: Network Analysis and Visualization

test_that("rewire(each_edge(mode='in')) keeps the in-degree distribution", {
  g <- barabasi.game(1000)

  g2 <- g %>% rewire(each_edge(mode = "in", multiple = T, prob = 0.2))
  expect_that(degree(g, mode = "in"), equals(degree(g2, mode = "in")))
  expect_false(all(degree(g, mode = "out") == degree(g2, mode = "out")))
})

test_that("rewire(each_edge(mode='out')) keeps the out-degree distribution", {
  g <- barabasi.game(1000)

  g2 <- g %>% rewire(each_edge(mode = "out", multiple = T, prob = 0.2))
  expect_that(degree(g, mode = "out"), equals(degree(g2, mode = "out")))
  expect_false(all(degree(g, mode = "in") == degree(g2, mode = "in")))
})

test_that("rewire() with zero probability does not do anything", {
  g <- barabasi.game(100)
  g2 <- g %>% rewire(each_edge(prob = 0))
  expect_true(identical_graphs(g, g2))
})