1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
#! /usr/bin/perl -w -I ..
#
# Simple Mail Transfer Protocol (SMTP) Test via check_smtp
#
# $Id$
#
use strict;
use Test::More;
use NPTest;
my $host_tcp_smtp = getTestParameter( "NP_HOST_TCP_SMTP",
"A host providing an SMTP Service (a mail server)", "mailhost");
my $host_nonresponsive = getTestParameter( "NP_HOST_NONRESPONSIVE",
"The hostname of system not responsive to network requests", "10.0.0.1" );
my $hostname_invalid = getTestParameter( "NP_HOSTNAME_INVALID",
"An invalid (not known to DNS) hostname", "nosuchhost" );
my $res;
plan tests => 8;
SKIP: {
skip "No SMTP server defined", 3 unless $host_tcp_smtp;
$res = NPTest->testCmd( "./check_smtp $host_tcp_smtp" );
is ($res->return_code, 0, "OK");
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp -p 25 -w 9 -c 9 -t 10 -e 220" );
is ($res->return_code, 0, "OK, within 9 second response");
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp -p 25 -wt 9 -ct 9 -to 10 -e 220" );
is ($res->return_code, 0, "OK, old syntax");
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp -e 221" );
is ($res->return_code, 1, "WARNING - got correct error when expecting 221 instead of 220" );
TODO: {
local $TODO = "Output is over two lines";
like ( $res->output, qr/^SMTP WARNING/, "Correct error message" );
}
# SSL connection
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp -p 25 -S" );
is ($res->return_code, 0, "OK, with STARTTLS" );
}
$res = NPTest->testCmd( "./check_smtp $host_nonresponsive" );
is ($res->return_code, 2, "CRITICAL - host non responding" );
$res = NPTest->testCmd( "./check_smtp $hostname_invalid" );
is ($res->return_code, 3, "UNKNOWN - hostname invalid" );
|
