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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
use strict; use warnings;
use Test::More tests => 18;
use Graph;
use Graph::AdjacencyMatrix;
my $g = Graph->new(vertices => [0..9]);
$g->add_edge(qw(2 3));
my $m = Graph::AdjacencyMatrix->new($g);
my $am = $m->adjacency_matrix;
my $dm = $m->distance_matrix;
my @V = $m->vertices;
# use Data::Dumper; print Dumper($am);
# use Data::Dumper; print Dumper($dm);
# use Data::Dumper; print Dumper(\@V);
is(@{$am->[0]}, 10);
is($am->vertices, 10);
is("@{[sort $am->vertices]}", "0 1 2 3 4 5 6 7 8 9");
is($dm, undef);
is(@V, 10);
is("@{[sort @V]}", "0 1 2 3 4 5 6 7 8 9");
ok( $m->is_adjacent(2, 3));
ok(!$m->is_adjacent(3, 2));
is( $m->distance(2, 3), undef);
is( $m->distance(3, 2), undef);
$g->add_weighted_edge(2, 3, 45);
$m = Graph::AdjacencyMatrix->new($g, distance_matrix => 0);
is( $m->distance(2, 3), undef);
is( $m->distance(3, 2), undef);
$m = Graph::AdjacencyMatrix->new($g, distance_matrix => 1);
is( $m->distance(2, 3), 45);
is( $m->distance(3, 2), undef);
# I for one welcome our new multiedged overlords!
$g = Graph->new(vertices => [0..9], multiedged => 1);
$g->set_edge_attribute_by_id(2, 3, 'c', 'other', 'hello');
$m = Graph::AdjacencyMatrix->new($g, distance_matrix => 1);
is_deeply $m->distance(2, 3), undef;
is( $m->distance(3, 2), undef);
$g->add_weighted_edge_by_id(2, 3, 'a', 45);
$g->add_weighted_edge_by_id(2, 3, 'b', 47);
$m = Graph::AdjacencyMatrix->new($g, distance_matrix => 1);
is_deeply $m->distance(2, 3), { a => 45, b => 47 };
is( $m->distance(3, 2), undef);
|
