summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_imap.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/t/check_imap.t')
-rw-r--r--plugins/t/check_imap.t35
1 files changed, 20 insertions, 15 deletions
diff --git a/plugins/t/check_imap.t b/plugins/t/check_imap.t
index 32b4136..fa957d1 100644
--- a/plugins/t/check_imap.t
+++ b/plugins/t/check_imap.t
@@ -6,12 +6,9 @@
6# 6#
7 7
8use strict; 8use strict;
9use Test; 9use Test::More tests => 7;
10use NPTest; 10use NPTest;
11 11
12use vars qw($tests);
13BEGIN {$tests = 7; plan tests => $tests}
14
15my $host_tcp_smtp = getTestParameter( "host_tcp_smtp", "NP_HOST_TCP_SMTP", "mailhost", 12my $host_tcp_smtp = getTestParameter( "host_tcp_smtp", "NP_HOST_TCP_SMTP", "mailhost",
16 "A host providing an STMP Service (a mail server)"); 13 "A host providing an STMP Service (a mail server)");
17 14
@@ -24,18 +21,26 @@ my $host_nonresponsive = getTestParameter( "host_nonresponsive", "NP_HOST_NONRES
24my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost", 21my $hostname_invalid = getTestParameter( "hostname_invalid", "NP_HOSTNAME_INVALID", "nosuchhost",
25 "An invalid (not known to DNS) hostname" ); 22 "An invalid (not known to DNS) hostname" );
26 23
27my %exceptions = ( 2 => "No IMAP Server present?" );
28
29my $t; 24my $t;
30 25
31$t += checkCmd( "./check_imap $host_tcp_imap", 0, undef, %exceptions ); 26$t = NPTest->testCmd( "./check_imap $host_tcp_imap" );
32$t += checkCmd( "./check_imap -H $host_tcp_imap -p 143 -w 9 -c 9 -t 10 -e '* OK'", 0, undef, %exceptions ); 27cmp_ok( $t->return_code, '==', 0, "Contacted imap" );
33$t += checkCmd( "./check_imap $host_tcp_imap -p 143 -wt 9 -ct 9 -to 10 -e '* OK'", 0, undef, %exceptions ); 28
34$t += checkCmd( "./check_imap $host_nonresponsive", 2 ); 29$t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -p 143 -w 9 -c 9 -to 10 -e '* OK'" );
35$t += checkCmd( "./check_imap $hostname_invalid", 2 ); 30cmp_ok( $t->return_code, '==', 0, "Got right response" );
36$t += checkCmd( "./check_imap -H $host_tcp_imap -e unlikely_string", 1); 31
37$t += checkCmd( "./check_imap -H $host_tcp_imap -e unlikely_string -M crit", 2); 32$t = NPTest->testCmd( "./check_imap $host_tcp_imap -p 143 -wt 9 -ct 9 -to 10 -e '* OK'" );
33cmp_ok( $t->return_code, '==', 0, "Check old parameter options" );
34
35$t = NPTest->testCmd( "./check_imap $host_nonresponsive" );
36cmp_ok( $t->return_code, '==', 2, "Get error with non reponsive host" );
37
38$t = NPTest->testCmd( "./check_imap $hostname_invalid" );
39cmp_ok( $t->return_code, '==', 2, "Invalid hostname" );
40
41$t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -e unlikely_string");
42cmp_ok( $t->return_code, '==', 1, "Got warning with bad response" );
38 43
44$t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -e unlikely_string -M crit");
45cmp_ok( $t->return_code, '==', 2, "Got critical error with bad response" );
39 46
40exit(0) if defined($Test::Harness::VERSION);
41exit($tests - $t);