dwww Home | Show directory contents | Find package

context("decompose")

test_that("decompose works", {
  library(igraph)
  g <- sample_gnp(1000, 1/1500)
  G <- decompose(g)
  clu <- components(g)
  Gsizes <- sapply(G, vcount)
  expect_that(sort(clu$csize), equals(sort(Gsizes)))
})

test_that("decompose works for many components", {
  library(igraph)
  g <- make_empty_graph(50001)
  tmp <- decompose(g)
  expect_that(1, equals(1))
})

test_that("decompose works for many components and attributes", {
  library(igraph)
  g <- make_empty_graph(50001)
  V(g)$name <- 1:vcount(g)
  tmp <- decompose(g)
  expect_that(1, equals(1))
})

test_that("decompose keeps attributes", {
  library(igraph)
  g <- make_ring(10) + make_ring(5)
  V(g)$name <- letters[1:(10+5)]
  E(g)$name <- apply(as_edgelist(g), 1, paste, collapse="-")
  d <- decompose(g)
  d <- d[order(sapply(d, vcount))]

  expect_that(length(d), equals(2))
  expect_that(sapply(d, vcount), equals(c(5,10)))
  expect_that(V(d[[1]])$name, equals(letters[1:5+10]))
  expect_that(V(d[[2]])$name, equals(letters[1:10]))
  e1 <- apply(as_edgelist(d[[1]]), 1, paste, collapse="-")
  e2 <- apply(as_edgelist(d[[2]]), 1, paste, collapse="-")
  expect_that(E(d[[1]])$name, equals(e1))
  expect_that(E(d[[2]])$name, equals(e2))
})

Generated by dwww version 1.15 on Sun Jun 16 11:18:13 CEST 2024.