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 })