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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
#!perl
## Test the "listener" action
use 5.006;
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 8;
use lib 't','.';
use CP_Testing;
use vars qw/$dbh $result $t $host $dbname/;
my $cp = CP_Testing->new( {default_action => 'listener'} );
$dbh = $cp->test_database_handle();
$host = $cp->get_host();
$dbname = $cp->get_dbname();
my $S = q{Action 'listener'};
my $label = 'POSTGRES_LISTENER';
$result = $cp->run('-w foo');
my $ver = $dbh->{pg_server_version};
if ($ver >= 90000) {
SKIP: {
skip 'Cannot test listener on Postgres 9.0 or higher', 8;
}
exit;
}
$t = qq{$S returned expected text and warning};
like ($result, qr{^$label WARNING:}, $t);
$t = qq{$S returned correct host name};
like ($result, qr{\(host:$host\)}, $t);
$t = qq{$S returned correct database name};
like ($result, qr{DB "$dbname"}, $t);
$t = qq{$S returned zero listeners};
like ($result, qr{listeners found: 0\b}, $t);
$dbh->do(q{LISTEN "FOO"}) or die $dbh->errstr;
$dbh->commit;
$t = qq{$S returned critical as expected<};
like ($cp->run('-c nomatch'), qr{^$label CRITICAL}, $t);
$t = qq{$S found one listener via explicit name};
like ($cp->run('-w FOO'), qr{listeners found: 1\b}, $t);
$t = qq{$S found one listener via regex};
like ($cp->run('-w ~FO'), qr{listeners found: 1\b}, $t);
$t = qq{$S returned correct information for MRTG output};
is ($cp->run('-w ~FO --output=MRTG'), qq{1\n0\n\n\n}, $t);
exit;
|
