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
|
use Test::More tests => 16;
use Graph::UnionFind;
my $uf = Graph::UnionFind->new;
is($uf->find('a'), undef);
$uf->add('a');
is($uf->find('a'), 'a');
$uf->add('b');
is($uf->find('a'), 'a');
is($uf->find('b'), 'b');
ok( $uf->union('a', 'b')); # http://rt.cpan.org/NoAuth/Bug.html?id=2627
is($uf->find('a'), 'b');
is($uf->find('b'), 'b');
$uf->union('c', 'd');
is($uf->find('c'), 'd');
is($uf->find('d'), 'd');
is($uf->find('e'), undef);
ok( $uf->same('a', 'b'));
ok( $uf->same('b', 'a'));
ok( $uf->same('c', 'd'));
ok(!$uf->same('a', 'c'));
$uf->union('a', 'd');
ok( $uf->same('a', 'c'));
ok(!$uf->same('c', 'e'));
|
