From 87bb01c300898f1a9e6c1f0d16ee1a9fef160513 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Wed, 8 Apr 2009 23:17:58 -0400
Subject: [PATCH] Test for the sequence action.

---
 t/02_sequence.t | 78 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 78 insertions(+)
 create mode 100644 t/02_sequence.t

diff --git a/t/02_sequence.t b/t/02_sequence.t
new file mode 100644
index 000000000..2517e3fd8
--- /dev/null
+++ b/t/02_sequence.t
@@ -0,0 +1,78 @@
+#!perl
+
+## Test the "sequence" action
+
+use strict;
+use warnings;
+use Data::Dumper;
+use DBI;
+use Test::More tests => 11;
+use lib 't','.';
+use CP_Testing;
+
+use vars qw/$dbh $SQL $t/;
+
+my $cp = CP_Testing->new( {default_action => 'sequence'} );
+
+$dbh = $cp->test_database_handle();
+
+my $S = q{Action 'sequence'};
+
+$t=qq{$S fails when called with an invalid option};
+like ($cp->run('foobar=12'), qr{^\s*Usage:}, $t);
+
+$t=qq{$S fails when called with an invalid option};
+like ($cp->run('--warning=80'), qr{ERROR:.+must be a percentage}, $t);
+
+$t=qq{$S fails when called with an invalid option};
+like ($cp->run('--critical=80'), qr{ERROR:.+must be a percentage}, $t);
+
+my $seqname = 'cp_test_sequence';
+{
+	local $dbh->{Warn};
+	$dbh->do("DROP SEQUENCE IF EXISTS $seqname");
+	$dbh->commit();
+}
+
+$t=qq{$S works when no sequences exist};
+like ($cp->run(''), qr{OK:.+No sequences found}, $t);
+
+$dbh->do("CREATE TEMP SEQUENCE ${seqname}2");
+$dbh->commit();
+
+$t=qq{$S fails when sequence not readable};
+like ($cp->run(''), qr{ERROR: Could not determine}, $t);
+
+$dbh->do("CREATE SEQUENCE $seqname");
+$dbh->commit();
+
+{
+	local $dbh->{Warn};
+	$dbh->do("DROP SEQUENCE IF EXISTS ${seqname}2");
+	$dbh->commit();
+}
+
+$t=qq{$S returns correct information for a new sequence};
+like ($cp->run(''), qr{OK:.+public.cp_test_sequence=0% \(calls left=9223372036854775806\)}, $t);
+
+$dbh->do("SELECT nextval('$seqname')");
+$dbh->do("SELECT nextval('$seqname')");
+
+$t=qq{$S returns correct information for a new sequence};
+like ($cp->run(''), qr{OK:.+public.cp_test_sequence=0% \(calls left=9223372036854775805\)}, $t);
+
+$t=qq{$S returns warning as expected};
+$dbh->do("SELECT setval('$seqname',999999999999999999)");
+like ($cp->run('--warning=10%'), qr{WARNING:.+public.cp_test_sequence=11% \(calls left=8223372036854775808\)}, $t);
+
+$t=qq{$S returns critical as expected};
+like ($cp->run('--critical=10%'), qr{CRITICAL:.+public.cp_test_sequence=11% \(calls left=8223372036854775808\)}, $t);
+
+$t=qq{$S returns correct information for a sequence with custom increment};
+$dbh->do("ALTER SEQUENCE $seqname INCREMENT 10 MAXVALUE 90 RESTART WITH 25");
+like ($cp->run('--critical=22%'), qr{CRITICAL:.+public.cp_test_sequence=33% \(calls left=6\)}, $t);
+
+$t=qq{$S returns correct information with MRTG output};
+is ($cp->run('--critical=22% --output=mrtg'), "33\n0\n\npublic.cp_test_sequence\n", $t);
+
+exit;
-- 
2.39.5