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
|
#!/usr/bin/perl
use strict; use warnings;
use Graph;
use Test::More;
plan tests => 4;
my $graph = Graph->new( undirected => 1 );
$graph->add_vertex("Berlin");
$graph->add_vertex("Bonn");
$graph->add_edge("Berlin","Bonn");
is ("$graph","Berlin=Bonn");
$graph->set_edge_attributes("Berlin", "Bonn", { color => "red" });
is ("$graph","Berlin=Bonn");
$graph = Graph->new( undirected => 1 );
$graph->add_vertex("Berlin");
$graph->add_vertex("Bonn");
$graph->add_edge("Bonn","Berlin");
is ("$graph","Berlin=Bonn");
$graph->set_edge_attributes("Bonn", "Berlin", { color => "red" });
is ("$graph","Berlin=Bonn");
|
