tests/testthat/test-print_class.R

In manynet: Many Ways to Make, Modify, Map, Mark, and Measure Myriad Networks

# Test custom printing for tbl_graph

# test_that("custom printing for tbl_graph works", {
#   expect_equal(print(ison_adolescents), ison_adolescents)
#   expect_equal(attributes(ison_adolescents)$active, "nodes")
#   expect_equal(attributes(ison_adolescents)$class, c("tbl_graph", "igraph"))
# })