Codebase list libgraph-perl / 26ba892
simplify t/99_misc.t Ed J 3 years ago
1 changed file(s) with 3 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all
+3
-6
t/99_misc.t less more
66
77 my $g0 = Graph::Directed->new;
88
9 $g0->add_edge(qw(a b));
10 $g0->add_edge(qw(a c));
11 $g0->add_edge(qw(b d));
12 $g0->add_edge(qw(b e));
13 $g0->add_edge(qw(c f));
14 $g0->add_edge(qw(c g));
9 my @E = ([qw(a b)], [qw(a c)], [qw(b d)], [qw(b e)], [qw(c f)], [qw(c g)]);
10
11 $g0->add_edge(@$_) for @E;
1512
1613 my $da0 = $g0->subgraph_by_radius('a', 0);
1714 my $da1 = $g0->subgraph_by_radius('a', 1);