File: u_mn_va.t

package info (click to toggle)
libgraph-perl 1%3A0.96-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 1,316 kB
  • ctags: 938
  • sloc: perl: 6,094; sh: 8; makefile: 2
file content (16 lines) | stat: -rw-r--r-- 364 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
use Test::More tests => 3;
use Graph::Undirected;

my $G = Graph::Undirected->new;
$G->add_vertex('a');
$G->set_vertex_attribute('a', 'sim', 0);
$G->add_vertex('b');
$G->set_vertex_attribute('b', 'sim', 1);
$G->add_edge('a', 'b');
$G->delete_vertex('a');
ok(! $G->has_vertex('a') );
my @V = $G->vertices;
is(scalar @V, 1);
my %V; @V{ @V } = ();
ok(exists $V{b});