summaryrefslogtreecommitdiffstats
path: root/plugins/t
diff options
context:
space:
mode:
authorMatthew Kent <mattkent@users.sourceforge.net>2004-11-25 05:06:25 (GMT)
committerMatthew Kent <mattkent@users.sourceforge.net>2004-11-25 05:06:25 (GMT)
commit9fb440a991c532c7df026e7f83c5d0150ed3b5a9 (patch)
tree1e626217cf8665a90e7ff289d76f48958e56ea14 /plugins/t
parentaac4f4539b0cf7a1f285b3c271ba7f253f9889a8 (diff)
downloadmonitoring-plugins-9fb440a991c532c7df026e7f83c5d0150ed3b5a9.tar.gz
Updating test harness
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@942 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins/t')
-rw-r--r--plugins/t/check_dns.t5
-rw-r--r--plugins/t/check_http.t4
-rw-r--r--plugins/t/check_load.t4
-rw-r--r--plugins/t/check_mysql.t11
4 files changed, 13 insertions, 11 deletions
diff --git a/plugins/t/check_dns.t b/plugins/t/check_dns.t
index a85e2e7..bee1d34 100644
--- a/plugins/t/check_dns.t
+++ b/plugins/t/check_dns.t
@@ -14,11 +14,10 @@ my $cmd;
14my $str; 14my $str;
15my $t; 15my $t;
16 16
17$cmd = "./check_dns 127.0.0.1 -to 5"; 17$str = `./check_dns $Cache::dnshost -to 5`;
18$str = `$cmd`;
19$t += ok $?>>8,0; 18$t += ok $?>>8,0;
20print "Test was: $cmd\n" if ($?); 19print "Test was: $cmd\n" if ($?);
21$t += ok $str, '/DNS ok - +[\.0-9]+ seconds response time, Address\(es\) is\/are /'; 20$t += ok $str, '/DNS OK: +[\.0-9]+ seconds response time, /';
22 21
23$cmd = "./check_dns $Cache::nullhost -to 1"; 22$cmd = "./check_dns $Cache::nullhost -to 1";
24$str = `$cmd`; 23$str = `$cmd`;
diff --git a/plugins/t/check_http.t b/plugins/t/check_http.t
index 0c71794..5be549a 100644
--- a/plugins/t/check_http.t
+++ b/plugins/t/check_http.t
@@ -11,9 +11,9 @@ my $null = '';
11my $str; 11my $str;
12my $t; 12my $t;
13 13
14$str = `./check_http $Cache::hostname -wt 300 -ct 600`; 14$str = `./check_http $Cache::httphost -wt 300 -ct 600`;
15$t += ok $?>>8,0; 15$t += ok $?>>8,0;
16$t += ok $str, '/(HTTP\s[o|O][k|K]\s)?\s?HTTP\/1.[01]\s[0-9]{3}\s(OK|Found)\s-\s+([0-9]+|[0-9]+\.[0-9]+)\ssecond response time/'; 16$t += ok $str, '/(HTTP\s[o|O][k|K]\s)?\s?HTTP\/1.[01]\s[0-9]{3}\s(OK|Found)\s-\s+[0-9]+\sbytes\sin\s+([0-9]+|[0-9]+\.[0-9]+)\sseconds/';
17 17
18$str = `./check_http $Cache::nullhost -wt 1 -ct 2`; 18$str = `./check_http $Cache::nullhost -wt 1 -ct 2`;
19$t += ok $?>>8,2; 19$t += ok $?>>8,2;
diff --git a/plugins/t/check_load.t b/plugins/t/check_load.t
index fce168f..414e09d 100644
--- a/plugins/t/check_load.t
+++ b/plugins/t/check_load.t
@@ -15,13 +15,13 @@ $cmd = "./check_load -w 100,100,100 -c 100,100,100";
15$str = `$cmd`; 15$str = `$cmd`;
16$t += ok $?>>8,0; 16$t += ok $?>>8,0;
17print "Test was: $cmd\n" if ($?); 17print "Test was: $cmd\n" if ($?);
18$t += ok $str, '/^OK - load average: [0-9]\.?[0-9]+, [0-9]\.?[0-9]+, [0-9]\.?[0-9]+$/'; 18$t += ok $str, '/^OK - load average: [0-9]\.?[0-9]+, [0-9]\.?[0-9]+, [0-9]\.?[0-9]+/';
19 19
20$cmd = "./check_load -w 0,0,0 -c 0,0,0"; 20$cmd = "./check_load -w 0,0,0 -c 0,0,0";
21$str = `$cmd`; 21$str = `$cmd`;
22$t += ok $?>>8,2; 22$t += ok $?>>8,2;
23print "Test was: $cmd\n" unless ($?); 23print "Test was: $cmd\n" unless ($?);
24$t += ok $str, '/^CRITICAL - load average: [0-9]\.?[0-9]+, [0-9]\.?[0-9]+, [0-9]\.?[0-9]+$/'; 24$t += ok $str, '/^CRITICAL - load average: [0-9]\.?[0-9]+, [0-9]\.?[0-9]+, [0-9]\.?[0-9]+/';
25 25
26exit(0) if defined($Test::Harness::VERSION); 26exit(0) if defined($Test::Harness::VERSION);
27exit($tests - $t); 27exit($tests - $t);
diff --git a/plugins/t/check_mysql.t b/plugins/t/check_mysql.t
index ae2a008..0fae65f 100644
--- a/plugins/t/check_mysql.t
+++ b/plugins/t/check_mysql.t
@@ -1,11 +1,12 @@
1#! /usr/bin/perl -w 1#! /usr/bin/perl -w
2 2
3use strict; 3use strict;
4use Helper;
4use Cache; 5use Cache;
5use Test; 6use Test;
6use vars qw($tests); 7use vars qw($tests);
7 8
8BEGIN {$tests = 1; plan tests => $tests} 9BEGIN {$tests = 2; plan tests => $tests}
9 10
10exit(0) unless (-x "./check_mysql"); 11exit(0) unless (-x "./check_mysql");
11 12
@@ -14,10 +15,12 @@ my $cmd;
14my $str; 15my $str;
15my $t; 16my $t;
16 17
17$cmd = "./check_mysql -H 127.0.0.1 -P 3306"; 18my $mysqlserver = get_option("mysqlserver","host for MYSQL tests");
19
20$cmd = "./check_mysql -H $mysqlserver -P 3306";
18$str = `$cmd`; 21$str = `$cmd`;
19$t += ok $?>>8,0; 22$t += ok $?>>8,2;
20print "Test was: $cmd\n" if ($?); 23$t += ok $str, '/Access denied for user: /';
21 24
22exit(0) if defined($Test::Harness::VERSION); 25exit(0) if defined($Test::Harness::VERSION);
23exit($tests - $t); 26exit($tests - $t);