plugins/t/check_imap.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Internet Mail Access Protocol (IMAP) Server Tests via check_imap
   4 #
   5 #
   6
   7 use strict;
   8 use Test::More tests => 7;
   9 use NPTest;
  10
  11 my $host_tcp_smtp      = getTestParameter("NP_HOST_TCP_SMTP", "A host providing an STMP Service (a mail server)", "mailhost");
  12 my $host_tcp_imap      = getTestParameter("NP_HOST_TCP_IMAP", "A host providing an IMAP Service (a mail server)", $host_tcp_smtp);
  13 my $host_nonresponsive = getTestParameter("NP_HOST_NONRESPONSIVE", "The hostname of system not responsive to network requests", "10.0.0.1");
  14 my $hostname_invalid   = getTestParameter("NP_HOSTNAME_INVALID", "An invalid (not known to DNS) hostname", "nosuchhost");
  15
  16 my $t;
  17
  18 $t = NPTest->testCmd( "./check_imap $host_tcp_imap" );
  19 cmp_ok( $t->return_code, '==', 0, "Contacted imap" );
  20
  21 $t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -p 143 -w 9 -c 9 -to 10 -e '* OK'" );
  22 cmp_ok( $t->return_code, '==', 0, "Got right response" );
  23
  24 $t = NPTest->testCmd( "./check_imap $host_tcp_imap -p 143 -wt 9 -ct 9 -to 10 -e '* OK'" );
  25 cmp_ok( $t->return_code, '==', 0, "Check old parameter options" );
  26
  27 $t = NPTest->testCmd( "./check_imap $host_nonresponsive" );
  28 cmp_ok( $t->return_code, '==', 2, "Get error with non reponsive host" );
  29
  30 $t = NPTest->testCmd( "./check_imap $hostname_invalid" );
  31 cmp_ok( $t->return_code, '==', 2, "Invalid hostname" );
  32
  33 $t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -e unlikely_string");
  34 cmp_ok( $t->return_code, '==', 1, "Got warning with bad response" );
  35
  36 $t = NPTest->testCmd( "./check_imap -H $host_tcp_imap -e unlikely_string -M crit");
  37 cmp_ok( $t->return_code, '==', 2, "Got critical error with bad response" );
  38