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
|
#!perl
## Test the "fsm_pages" action
use 5.008;
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 7;
use lib 't','.';
use CP_Testing;
use vars qw/$dbh $SQL $t/;
my $cp = CP_Testing->new( {default_action => 'fsm_pages'} );
$dbh = $cp->test_database_handle();
my $S = q{Action 'fsm_pages'};
my $label = 'POSTGRES_FSM_PAGES';
$t=qq{$S fails when called with an invalid option};
like ($cp->run('foobar=12'), qr{Usage:}, $t);
$t=qq{$S fails when called with an invalid option};
like ($cp->run('--warning=40'), qr{ERROR:.+must be a percentage}, $t);
$t=qq{$S fails when called with an invalid option};
like ($cp->run('--critical=50'), qr{ERROR:.+must be a percentage}, $t);
my $ver = $dbh->{pg_server_version};
if ($ver >= 80400) {
SKIP: {
skip 'Cannot test fsm_pages completely on Postgres 8.4 or higher', 3;
}
$t=qq{$S gives an unknown when running against a 8.4 or higher version};
like ($cp->run('--warning=10%'), qr{^$label UNKNOWN.*Cannot check fsm_pages}, $t);
exit;
}
## Create a fake fsm 'view' for testing
$cp->set_fake_schema();
my $schema = $cp->get_fake_schema();
$cp->drop_table_if_exists($schema, 'pg_freespacemap_pages');
$cp->drop_table_if_exists($schema, 'pg_freespacemap_relations');
$dbh->do(qq{
CREATE TABLE $schema.pg_freespacemap_pages (
reltablespace oid,
reldatabase oid,
relfilenode oid,
relblocknumber bigint,
bytes integer
);
});
$dbh->do(qq{
CREATE TABLE $schema.pg_freespacemap_relations (
reltablespace oid,
reldatabase oid,
relfilenode oid,
avgrequest integer,
interestingpages integer,
sortedpages integer,
nextpage integer
);
});
$dbh->commit();
$t=qq{$S gives normal output for empty tables};
like ($cp->run('--warning=10%'), qr{^$label OK: .+fsm page slots used: 0 of \d+}, $t);
$dbh->do("INSERT INTO $schema.pg_freespacemap_pages VALUES (1663,16389,16911,34,764)");
$dbh->do("INSERT INTO $schema.pg_freespacemap_relations VALUES (1663,16389,16911,1077,52283,52283,37176)");
$dbh->commit();
$t=qq{$S gives normal warning output};
like ($cp->run('--warning=10%'), qr{^$label WARNING: .+fsm page slots used: 52288 of \d+}, $t);
$t=qq{$S gives normal critical output};
like ($cp->run('--critical=5%'), qr{^$label CRITICAL: .+fsm page slots used: 52288 of \d+}, $t);
$t=qq{$S gives normal output for MRTG};
is ($cp->run('--critical=5% --output=MRTG'), qq{52\n52288\n\n\n}, $t);
exit;
|
