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