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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
use Test::More tests => 69;
use Graph;
my $g = Graph->new(multivertexed => 1);
$g->add_vertex_by_id("a", "hot");
ok( !$g->has_vertex_attributes_by_id("a", "hot") );
ok( !$g->has_vertex_attributes_by_id("a", "hot") );
ok( $g->set_vertex_attribute_by_id("a", "hot", "color", "red") );
ok( $g->has_vertex_attribute_by_id("a", "hot", "color") );
ok( $g->has_vertex_attribute_by_id("a", "hot", "color") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
is( $g->get_vertex_attribute_by_id("a", "hot", "color"), "red" );
is( $g->get_vertex_attribute_by_id("a", "hot", "color"), "red" );
is( $g->get_vertex_attribute_by_id("a", "hot", "colour"), undef );
is( $g->get_vertex_attribute_by_id("a", "hot", "colour"), undef );
ok( $g->set_vertex_attribute_by_id("a", "hot", "color", "green") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
is( $g->get_vertex_attribute_by_id("a", "hot", "color"), "green" );
is( $g->get_vertex_attribute_by_id("a", "hot", "color"), "green" );
my $attr = $g->get_vertex_attributes_by_id("a", "hot");
my @name = $g->get_vertex_attribute_names_by_id("a", "hot");
my @val = $g->get_vertex_attribute_values_by_id("a", "hot");
is( scalar keys %$attr, 1 );
is( scalar @name, 1 );
is( scalar @val, 1 );
is( $attr->{color}, "green" );
is( $name[0], "color" );
is( $val[0], "green" );
ok( $g->set_vertex_attribute_by_id("a", "hot", "taste", "rhubarb") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
is( $g->get_vertex_attribute_by_id("a", "hot", "taste"), "rhubarb" );
is( $g->get_vertex_attribute_by_id("a", "hot", "taste"), "rhubarb" );
is( $g->get_vertex_attribute_by_id("a", "hot", "color"), "green" );
is( $g->get_vertex_attribute_by_id("a", "hot", "taste"), "rhubarb" );
$attr = $g->get_vertex_attributes_by_id("a", "hot");
@name = sort $g->get_vertex_attribute_names_by_id("a", "hot");
@val = sort $g->get_vertex_attribute_values_by_id("a", "hot");
is( scalar keys %$attr, 2 );
is( scalar @name, 2 );
is( scalar @val, 2 );
is( $attr->{color}, "green" );
is( $attr->{taste}, "rhubarb" );
is( $name[0], "color" );
is( $val[0], "green" );
is( $name[1], "taste" );
is( $val[1], "rhubarb" );
ok( $g->delete_vertex_attribute_by_id("a", "hot", "color" ) );
ok( !$g->has_vertex_attribute_by_id("a", "hot", "color" ) );
ok( $g->has_vertex_attributes_by_id("a", "hot") );
is( $g->get_vertex_attribute_by_id("a", "hot", "taste"), "rhubarb" );
ok( $g->delete_vertex_attributes_by_id("a", "hot") );
ok( !$g->has_vertex_attributes_by_id("a", "hot") );
is( $g->get_vertex_attribute_by_id("a", "hot", "taste"), undef );
ok( !$g->delete_vertex_attribute_by_id("a", "hot", "taste" ) );
ok( !$g->delete_vertex_attributes_by_id("a", "hot") );
$attr = $g->get_vertex_attributes_by_id("a", "hot");
@name = $g->get_vertex_attribute_names_by_id("a", "hot");
@val = $g->get_vertex_attribute_values_by_id("a", "hot");
is( scalar keys %$attr, 0 );
is( scalar @name, 0 );
is( scalar @val, 0 );
is( $g->vertices, 0 ); # No "a" anymore.
$g->add_weighted_vertex_by_id("b", "cool", 42);
ok( $g->has_vertex_by_id("b", "cool") );
is( $g->get_vertex_weight_by_id("b", "cool"), 42 );
is( $g->vertices, 1 );
$g->add_weighted_vertices_by_id("b", 43, "c", 44, "cool");
is( $g->get_vertex_weight_by_id("b", "cool"), 43 );
is( $g->get_vertex_weight_by_id("c", "cool" ), 44 );
is( $g->vertices, 2 );
ok($g->set_vertex_attributes_by_id('a', 'hot',
{ 'color' => 'pearl', 'weight' => 'heavy' }));
$attr = $g->get_vertex_attributes_by_id('a', 'hot');
is(scalar keys %$attr, 2);
is($attr->{color}, 'pearl');
is($attr->{weight}, 'heavy');
ok( $g->set_vertex_weight_by_id("a", "hot", 42));
is( $g->get_vertex_weight_by_id("a", "hot"), 42);
ok( $g->has_vertex_weight_by_id("a", "hot"));
ok(!$g->has_vertex_weight_by_id("x", "hot"));
ok( $g->delete_vertex_weight_by_id("a", "hot"));
ok(!$g->has_vertex_weight_by_id("a", "hot"));
is( $g->get_vertex_weight_by_id("a", "hot"), undef);
my $h = Graph->new(multivertexed => 1);
eval '$h->set_vertex_attribute("foo", "color", "gold")';
like($@, qr/set_vertex_attribute: expected non-multivertexed/);
|
