tests/testthat/test-utils-assert-args.R

In igraph: Network Analysis and Visualization

test_that("ensure_igraph() works", {
  expect_snapshot_error(ensure_igraph(1))
  expect_snapshot_error(ensure_igraph(NA))
  expect_snapshot_error(ensure_igraph(NULL))
  expect_silent(ensure_igraph(make_empty_graph()))
  expect_silent(ensure_igraph(NULL, optional = TRUE))
})

test_that("igraph.match.arg() works", {
  expect_snapshot(
    cluster_leiden(make_graph("Zachary"), objective_function = "something"),
    error = TRUE
  )
})