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
|
use Test::More tests => 5;
use Graph;
my $h = Graph->new(hypervertexed => 1);
ok( !$h->has_edges() );
my $v = $h->edges;
is( $v, 0 );
my @v = $h->edges;
is( "@v", "" );
$h->add_edge(["a","b"],"c");
$h->add_edge("a",["b","c"]);
$h->add_edge(["a","b","c"],[]);
$h->add_edge([],["a","b","c"]);
my $e = $h->edges;
is( $e, 4 );
sub deref {
my $r = shift;
ref $r ? "[" . join(" ", map { deref($_) } @$r) . "]" : $_;
}
my @e = sort map { deref($_) } $h->edges;
is( "@e", "[[] [a b c]] [[a b c] []] [[a b] c] [a [b c]]" );
|
