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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!perl
## Test the "txn_idle" action
use 5.006;
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 15;
use lib 't','.';
use CP_Testing;
use vars qw/$dbh $result $t $port $host $dbname/;
my $cp = CP_Testing->new( {default_action => 'txn_idle'} );
$dbh = $cp->test_database_handle();
$dbh->{AutoCommit} = 1;
$port = $cp->get_port();
$host = $cp->get_host();
$dbname = $cp->get_dbname;
diag "Connected as $port:$host:$dbname\n";
my $S = q{Action 'txn_idle'};
my $label = 'POSTGRES_TXN_IDLE';
$t = qq{$S self-identifies correctly};
$result = $cp->run(q{-w 0});
like ($result, qr{^$label}, $t);
$t = qq{$S identifies host};
like ($result, qr{host:$host}, $t);
$t = qq{$S accepts valid -w input};
for my $arg (
'1 second',
'1 minute',
'1 hour',
'1 day'
) {
like ($cp->run(qq{-w "$arg"}), qr{^$label}, "$t ($arg)");
}
$t = qq{$S rejects invalid -w input};
for my $arg (
'-1 second',
'abc'
) {
like ($cp->run(qq{-w "$arg"}), qr{^ERROR:.*?must be a valid time}, "$t ($arg)");
}
if ($cp->run(q{-w 0 --output=simple}) > 0) {
BAIL_OUT(qq{Cannot continue with "$S" test: txn_idle count > 0\nIs someone else connected to your test database?});
}
$t = qq{$S identifies no idles};
like ($result, qr{no idle in transaction}, $t);
$t .= ' (MRTG)';
is ($cp->run(q{--output=mrtg -w 0}), qq{0\n0\n\nDB: $dbname\n}, $t);
$t = qq{$S identifies idle};
my $idle_dbh = $cp->test_database_handle();
$idle_dbh->do('SELECT 1');
sleep(1);
like ($cp->run(q{-w 0}), qr{longest idle in txn: \d+s}, $t);
$t .= ' (MRTG)';
like ($cp->run(q{--output=mrtg -w 0}), qr{\d+\n0\n\nPID:\d+ database:$dbname username:check_postgres_testing}, $t);
sleep(1);
# Try integers.
$t = qq{$S identifies idle using +0};
like ($cp->run(q{-w +0}), qr{Total idle in transaction: \d+\b}, $t);
# Try both.
sleep(1);
$t = qq{$S identifies idle using '1 for 2s'};
like ($cp->run(q{-w '1 for 2s'}), qr{1 idle transactions longer than 2s, longest: \d+s}, $t);
$t = qq{$S returns an unknown if running as a non-superuser};
my $olduser = $cp->{testuser};
$cp->{testuser} = 'powerless_pete';
like ($cp->run('-w 0'), qr{^$label UNKNOWN: .+superuser}, $t);
$idle_dbh->commit;
exit;
|
