1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
use Test::More tests => 4;
use strict;
use warnings;
use Graph::Directed;
my $graph = new Graph::Directed;
$graph->add_edge(qw(a b));
$graph->add_edge(qw(b c));
is($graph, "a-b,b-c");
is(show_successors($graph), "a: b; b: c; c: ");
$graph->set_vertex_attribute('b','label','bla');
is($graph, "a-b,b-c");
is(show_successors($graph), "a: b; b: c; c: ");
sub show_successors {
my $graph = shift;
my @v;
foreach my $v (sort $graph->vertices()) {
push @v, "$v: " . join(" ", sort $graph->successors($v));
}
return join("; ", @v);
}
|
