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
|
use strict; use warnings;
use Test::More tests => 15;
use Graph;
my $g = Graph->new;
gen_changed( $g->[1] ); # [1] is the generational index
ok( $g->add_vertex('a') );
gen_changed( $g->[1] );
ok( $g->add_vertex('b') );
gen_changed( $g->[1] );
ok( $g->add_edge('a', 'b') );
gen_changed( $g->[1] );
ok( $g->delete_edge('a', 'b') );
gen_changed( $g->[1] );
ok( $g->add_edge('a', 'c') );
gen_changed( $g->[1] );
ok( $g->delete_vertex('a') );
gen_changed( $g->[1] );
ok( $g->delete_vertex('b') );
gen_changed( $g->[1] ); # delete vertex
my $gen_old;
sub gen_changed {
isnt $_[0], $gen_old;
$gen_old = $_[0],;
}
|
