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
29
30
31
32
33
34
|
use Test::More tests => 18;
use strict; use warnings;
use Graph;
my $g = Graph->new;
$g->add_path('a'..'d');
ok( $g->has_vertex('a'));
ok( $g->has_vertex('b'));
ok( $g->has_vertex('c'));
ok( $g->has_vertex('d'));
$g->delete_vertex('d');
ok( $g->has_vertex('a'));
ok( $g->has_vertex('b'));
ok( $g->has_vertex('c'));
ok(!$g->has_vertex('d'));
$g->set_vertex_attribute('b','a',1);
ok( $g->delete_vertex('b'));
ok( $g->has_vertex('a'));
ok(!$g->has_vertex('b'));
ok( $g->has_vertex('c'));
ok(!$g->has_vertex('d'));
ok( $g->delete_vertex('a'));
ok(!$g->has_vertex('a'));
ok(!$g->has_vertex('b'));
ok( $g->has_vertex('c'));
ok(!$g->has_vertex('d'));
|
