u_te_ea.t   [plain text]

#!/usr/bin/perl -w

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");