From: Greg Sabino Mullane <greg@endpoint.com>
Date: Wed, 22 Apr 2009 20:34:06 +0000 (-0400)
Subject: Tests for last_analye and last_vacuum, but Jeff Boes, with minor modifications by... 
X-Git-Tag: 2.9.0~105
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=1ef5d4b452785241323157be56d261f023d11737;p=check_postgres.git

Tests for last_analye and last_vacuum, but Jeff Boes, with minor modifications by Greg.
---

diff --git a/t/02_last_analyze.t b/t/02_last_analyze.t
new file mode 100644
index 000000000..912dd15cd
--- /dev/null
+++ b/t/02_last_analyze.t
@@ -0,0 +1,79 @@
+#!perl
+
+## Test the "last_analyze" action
+
+use strict;
+use warnings;
+use Data::Dumper;
+use DBI;
+use Test::More tests => 14;
+use lib 't','.';
+use CP_Testing;
+
+use vars qw/$dbh $result $t $host $dbname/;
+
+my $testtbl = 'last_analyze_test';
+
+my $cp = CP_Testing->new( {default_action => 'last_analyze'} );
+
+$dbh = $cp->test_database_handle();
+$dbname = $cp->get_dbname;
+$host = $cp->get_host();
+my $label = 'POSTGRES_LAST_ANALYZE';
+
+my $S = q{Action 'last_analyze'};
+
+$t = qq{$S self-identifies correctly};
+$result = $cp->run(qq{-w 0});
+like ($result, qr{^$label}, $t);
+
+$t = qq{$S identifies database};
+like ($result, qr{DB "$dbname"}, $t);
+
+$t = qq{$S identifies host};
+like ($result, qr{host:$host}, $t);
+
+$t = qq{$S accepts valid -w input};
+for ('1 second',
+     '1 minute',
+     '1 hour',
+     '1 day',
+	) {
+   like ($cp->run(qq{-w "$_"}), qr/^$label/, $t . " ($_)");
+}
+
+$t = qq{$S rejects invalid -w input};
+for ('-1 second',
+     'abc',
+	) {
+   like ($cp->run(qq{-w "$_"}), qr/^ERROR:.*?must be a valid time/, $t . " ($_)");
+}
+
+$t = qq{$S flags no-match-user};
+like ($cp->run(qq{-w 0 --includeuser=gandalf}), qr{No matching.*user}, $t);
+
+local $dbh->{Warn};
+$dbh->do(qq{DROP TABLE IF EXISTS $testtbl});
+$dbh->do(qq{CREATE TABLE $testtbl AS SELECT 123::INTEGER AS a FROM generate_series(1,200000)});
+$dbh->commit();
+
+$t = qq{$S correctly finds no matching tables};
+like ($cp->run("-w 0 --exclude=~.* --include=$testtbl"),
+	  qr{No matching tables found due to exclusion}, $t);
+
+$t = qq{$S sees a recent ANALYZE};
+$dbh->do(qq{SET default_statistics_target = 1000});
+$dbh->do(q{ANALYZE});
+$dbh->commit();
+sleep 1;
+like ($cp->run("-w 0 --include=$testtbl"), qr{^$label OK}, $t);
+
+$t = qq{$S returns correct MRTG information (OK case)};
+like ($cp->run("--output=mrtg -w 0 --include=$testtbl"),
+  qr{^\d\n0\n\nDB: $dbname TABLE: public.$testtbl\n}, $t);
+
+$t = qq{$S returns correct MRTG information (fail case)};
+like($cp->run("--output=mrtg -w 0 --exclude=~.* --include=no_such_table"),
+  qr{0\n0\n\nDB: $dbname TABLE: \?\n}, $t);
+
+exit;
diff --git a/t/02_last_vacuum.t b/t/02_last_vacuum.t
new file mode 100644
index 000000000..e8c140899
--- /dev/null
+++ b/t/02_last_vacuum.t
@@ -0,0 +1,80 @@
+#!perl
+
+## Test the "last_vacuum" action
+
+use strict;
+use warnings;
+use Data::Dumper;
+use DBI;
+use Test::More tests => 14;
+use lib 't','.';
+use CP_Testing;
+
+use vars qw/$dbh $result $t $host $dbname/;
+
+my $testtbl = 'last_vacuum_test';
+
+my $cp = CP_Testing->new( {default_action => 'last_vacuum'} );
+
+$dbh = $cp->test_database_handle();
+$dbname = $cp->get_dbname;
+$host = $cp->get_host();
+my $label = 'POSTGRES_LAST_VACUUM';
+
+my $S = q{Action 'last_vacuum'};
+
+$t = qq{$S self-identifies correctly};
+$result = $cp->run(qq{-w 0});
+like ($result, qr{^$label}, $t);
+
+$t = qq{$S identifies database};
+like ($result, qr{DB "$dbname"}, $t);
+
+$t = qq{$S identifies host};
+like ($result, qr{host:$host}, $t);
+
+$t = qq{$S accepts valid -w input};
+for ('1 second',
+     '1 minute',
+     '1 hour',
+     '1 day'
+    ) {
+   like ($cp->run(qq{-w "$_"}), qr/^$label/, $t . " ($_)");
+}
+
+$t = qq{$S rejects invalid -w input};
+for ('-1 second',
+     'abc',
+    ) {
+   like ($cp->run(qq{-w "$_"}), qr/^ERROR:.*?must be a valid time/, $t . " ($_)");
+}
+
+$t = qq{$S flags no-match-user};
+like ($cp->run(qq{-w 0 --includeuser=gandalf}), qr{No matching.*user}, $t);
+
+local $dbh->{Warn};
+local $dbh->{AutoCommit} = 1;
+$dbh->do(qq{DROP TABLE IF EXISTS $testtbl});
+$dbh->do(qq{CREATE TABLE $testtbl AS SELECT 123::INTEGER AS a FROM generate_series(1,200000)});
+$dbh->commit();
+
+like ($cp->run("-w 0 --exclude=~.* --include=$testtbl"),
+	  qr{No matching tables found due to exclusion}, $t);
+
+$t = qq{$S sees a recent VACUUM};
+$dbh->do("DELETE FROM $testtbl");
+$dbh->do('VACUUM');
+sleep 1;
+
+like ($cp->run("-w 0 --exclude=~.* --include=$testtbl"),
+	  qr{^$label OK: DB "$dbname" \(host:$host\).*?\(\d+ second(?:s)?\)}, $t);
+
+$t = qq{$S returns correct MRTG information (OK case)};
+like ($cp->run("--output=mrtg -w 0 --exclude=~.* --include=$testtbl"),
+	  qr{\d+\n0\n\nDB: $dbname TABLE: public.$testtbl\n}, $t);
+
+$t = qq{$S returns correct MRTG information (fail case)};
+like ($cp->run("--output=mrtg -w 0 --exclude=~.* --include=no_such_table"),
+	  qr{0\n0\n\nDB: $dbname TABLE: \?\n}, $t);
+
+exit;