tests/testthat/test-plot.R

In igraph: Network Analysis and Visualization

test_that("basic plot test, R < 4.3", {
  set.seed("20221214")

  skip_if(getRversion() >= "4.3")
  # FIXME: Reenable after separating layouting from plotting
  skip_on_ci()

  vdiffr::expect_doppelganger(
    "Basic graph, R <= 4.2",
    function() {
      g <- make_graph(c(1, 2, 1, 1, 2, 3), directed = F)
      cols <- c("red", "green", "blue")
      plot(g, edge.color = cols)
    }
  )
})

test_that("basic plot test, R >= 4.3", {
  set.seed("20221214")

  skip_if(getRversion() < "4.3")
  # FIXME: Reenable after separating layouting from plotting
  skip_on_ci()

  vdiffr::expect_doppelganger(
    "Basic graph, R >= 4.3",
    function() {
      g <- make_graph(c(1, 2, 1, 1, 2, 3), directed = F)
      cols <- c("red", "green", "blue")
      plot(g, edge.color = cols)
    }
  )
})