49_get_edge_count.t   [plain text]

use Test::More tests => 12;

use Graph;
my $g = Graph->new;

is( $g->get_edge_count("a", "b"), 0 );
is( $g->get_edge_count("b", "c"), 0 );

$g->add_edge("a", "b");

is( $g->get_edge_count("a", "b"), 1 );
is( $g->get_edge_count("b", "c"), 0 );

$g->add_edge("a", "b");

is( $g->get_edge_count("a", "b"), 1 );
is( $g->get_edge_count("b", "c"), 0 );

my $h = $g->new(countedged => 1);

$h->add_edge("a", "b");
$h->add_edge("a", "b");

is( $h->get_edge_count("a", "b"), 2 );
is( $h->get_edge_count("b", "c"), 0 );

$h->delete_edge("a", "b");

is( $h->get_edge_count("a", "b"), 1 );
is( $h->get_edge_count("b", "c"), 0 );

$h->delete_edge("a", "b");

is( $h->get_edge_count("a", "b"), 0 );
is( $h->get_edge_count("b", "c"), 0 );