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