tests/testthat/test-layout_nicely.R

In igraph: Network Analysis and Visualization

test_that("layout_nicely() works with negative weights", {
  g <- make_graph("petersen")
  E(g)$weight <- -5:9
  expect_warning(layout_nicely(g), regexp = "ignoring all weights")
})

test_that("layout_nicely() does not recurse into itself", {
  g <- make_graph("petersen")
  g$layout <- layout_nicely
  expect_warning(layout_nicely(g), regexp = NA) # should not recurse infinitely
})