dwww Home | Show directory contents | Find package

context("merge_coords")

test_that("merge_coords works", {

  library(igraph)
  set.seed(42)

  g <- list(make_ring(10), make_ring(5))
  l <- lapply(g, layout_with_mds)
  l

  lm <- merge_coords(g, l)
  expect_true(is.matrix(lm))
  expect_that(ncol(lm), equals(2))
  expect_that(nrow(lm), equals(sum(sapply(g, vcount))))

##########

  ## Stress test
  for (i in 1:10) {
    g <- sample_gnp(100, 2/100)
    l <- layout_with_mds(g)
    expect_that(dim(l), equals(c(vcount(g), 2)))
  }

})

Generated by dwww version 1.15 on Sun Jun 16 12:54:49 CEST 2024.