tests/testthat/test-print.initial_graph.R

In graphicalMCP: Graphical Multiple Comparison Procedures

test_that("snapshot print method", {
  expect_snapshot(graph_create(c(.5, .5), matrix(c(0, 1, 1, 0), nrow = 2)))
  expect_snapshot(
    graph_update(graph_create(1, matrix(0, nrow = 1)), TRUE)$updated_graph
  )
})

test_that("print default title with no title attribute", {
  no_attr <- graph_create(c(.5, .5), matrix(c(0, 1, 1, 0), nrow = 2))
  attr(no_attr, "title") <- NULL

  expect_snapshot(no_attr)
})