view release on metacpan or  search on metacpan

src/VLDB/t/VLDB.t  view on Meta::CPAN

like($AFS::CODE, qr/could not interpret partition name/, 'vldb->changeloc(no_part)');
$vldb->changeloc('no_volume', $server, $part);
like($AFS::CODE, qr/no such entry/, 'vldb->changeloc(no_vol)');

my ($succ, $fail) = $vldb->delentry('no_volume');
like($AFS::CODE, qr/no such entry/, 'vldb->delentry(no_vol)');
ok(! $succ, 'succ = vldb->delentry(no_vol)');
ok(! $fail, 'fail = vldb->delentry(no_vol)');

($succ, $fail) = $vldb->delgroups('', '', '', '');
like($AFS::CODE, qr/You must specify an argument/, 'vldb->delgroups(no arguments)');
ok(! $succ, 'succ = vldb->delgroups(no arguments)');
ok(! $fail, 'fail = vldb->delgroups(no arguments)');
($succ, $fail) = $vldb->delgroups('prefix', '', '', '');
like($AFS::CODE, qr/must provide SERVER with the PREFIX/, 'vldb->delgroups(no server-1)');
ok(! $succ, 'succ = vldb->delgroups(no server-1)');
ok(! $fail, 'fail = vldb->delgroups(no server-1)');
($succ, $fail) = $vldb->delgroups('prefix', 'no_server', '', '');
like($AFS::CODE, qr/ not found in host table/, 'vldb->delgroups(no_server)');
ok(! $succ, 'succ = vldb->delgroups(no_server)');
ok(! $fail, 'fail = vldb->delgroups(no_server)');
($succ, $fail) = $vldb->delgroups('prefix', '', 'partition', '');
like($AFS::CODE, qr/must provide SERVER with the PARTITION/, 'vldb->delgroups(no server-2)');
ok(! $succ, 'succ = vldb->delgroups(no server-2)');
ok(! $fail, 'fail = vldb->delgroups(no server-2)');
($succ, $fail) = $vldb->delgroups('prefix', $server, 'no_partition', '');
like($AFS::CODE, qr/could not interpret partition name/, 'vldb->delgroups(no_part)');
ok(! $succ, 'succ = vldb->delgroups(no_part)');
ok(! $fail, 'fail = vldb->delgroups(no_part)');

$vldb->remsite('no_server', '/vicepa', 'root.afs');
like($AFS::CODE, qr/not found in host table/, 'vldb->remsite(no_server part vol_name)');
$vldb->remsite('no_server', '/vicepa', $volid);
like($AFS::CODE, qr/not found in host table/, 'vldb->remsite(no_server part vol_ID)');
$vldb->remsite($server, 'no_partition', 'root.afs');
like($AFS::CODE, qr/could not interpret partition name/, 'vldb->remsite(server no_part vol_name)');
$vldb->remsite($server, $part, 'no_volume');
like($AFS::CODE, qr/no such entry/, 'vldb->remsite(server part no_vol)');

$vldb->syncserv('no_server', '/vicepa');
like($AFS::CODE, qr/not found in host table/, 'vldb->syncserv(no_serv)');
$vldb->syncserv($server, 'no_partition');
like($AFS::CODE, qr/could not interpret partition name/, 'vldb->syncserv(no_part)');

$vldb->syncvldb('no_server', '/vicepa');
like($AFS::CODE, qr/not found in host table/, 'vldb->syncvldb(no_serv)');
$vldb->syncvldb($server, 'no_partition');
like($AFS::CODE, qr/could not interpret partition name/, 'vldb->syncvldb(no_part)');

$ok = $vldb->syncvldbentry('no_volume');
ok($ok, 'vldb->syncvldbentry(no_vol)');

$vldb->removeaddr('');
like($AFS::CODE, qr/invalid host address/, 'vldb->removeaddr(no arguments)');
$vldb->removeaddr('127.0.0.1');
like($AFS::CODE, qr/no such entry|Could not remove server/, 'vldb->removeaddr(invalid IP)');

$vldb->DESTROY;
ok(! defined $vldb, 'vldb->DESTROY');

sub leak_test {
    my $cell  = shift;

    my $count = 0;
    my $verb  = 1;
    while(1) {
        $count++;
        my $vldb = AFS::VLDB->new($verb);
        $vldb->DESTROY();
        if ($count == 1210) { last; }
    }
    return $count;
}