1use Graph;
2use strict;
3
4use Test::More tests => 18;
5
6my $g0 = Graph->new (multiedged => 1);
7
8for my $i (0..2) {
9  print "# Adding 'A' - 'B'\n";
10  my $id = $g0->add_edge_get_id('A', 'B');
11  is($id, $i, "id is $i");
12
13  my @ids = sort { $a <=> $b } $g0->get_multiedge_ids('A', 'B');
14  print "# ids = @ids\n";
15  for my $j (0..$i) {
16      is($ids[$j], $j, "id[$j] is $j");
17  }
18}
19
20my $g1 = Graph->new (multivertexed => 1);
21
22for my $i (0..2) {
23  print "# Adding 'C'\n";
24  my $id = $g1->add_vertex_get_id('C');
25  is($id, $i, "id is $i");
26
27  my @ids = sort { $a <=> $b } $g1->get_multivertex_ids('C');
28  print "# ids = @ids\n";
29  for my $j (0..$i) {
30      is($ids[$j], $j, "id[$j] is $j");
31  }
32}
33