48_get_vertex_count.t   [plain text]


use Test::More tests => 12;

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

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

$g->add_vertex("a");

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

$g->add_vertex("a");

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

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

$h->add_vertex("a");
$h->add_vertex("a");

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

$h->delete_vertex("a");

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

$h->delete_vertex("a");

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