context("Indexing") test_that("Indexing multi-graphs as adjacency list", { g <- make_graph(~ A -+ B:C, A -+ B:C:D, simplify = FALSE) e <- g[['A', 'B', edges = TRUE]] expect_equal(sort(e[[1]]), E(g)[1,3]) })
Generated by dwww version 1.15 on Sat Jun 15 12:47:50 CEST 2024.