1 2context("delete_vertices") 3 4test_that("delete_vertices works", { 5 library(igraph) 6 g <- graph_from_literal(A:B:C - D:E:F, D-E-F) 7 8 g2 <- delete_vertices(g, "A") 9 g3 <- delete_vertices(g, match("A", V(g)$name)) 10 11 expect_true(graph.isomorphic(g2, g3)) 12}) 13