68 lines
2.4 KiB
Perl
68 lines
2.4 KiB
Perl
#! /usr/bin/perl -w -I ..
|
|
#
|
|
# Simple Mail Transfer Protocol (SMTP) Test via check_smtp
|
|
#
|
|
# $Id: check_smtp.t,v 1.4 2006/10/19 11:56:34 tonvoon Exp $
|
|
#
|
|
|
|
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_tcp_smtp_tls = getTestParameter( "NP_HOST_TCP_SMTP_TLS",
|
|
"A host providing SMTP with TLS", $host_tcp_smtp);
|
|
my $host_tcp_smtp_notls = getTestParameter( "NP_HOST_TCP_SMTP_NOTLS",
|
|
"A host providing SMTP without TLS", "");
|
|
|
|
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 => 10;
|
|
|
|
SKIP: {
|
|
skip "No SMTP server defined", 4 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" );
|
|
}
|
|
}
|
|
|
|
SKIP: {
|
|
skip "No SMTP server with TLS defined", 1 unless $host_tcp_smtp_tls;
|
|
# SSL connection for TLS
|
|
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp_tls -p 25 -S" );
|
|
is ($res->return_code, 0, "OK, with STARTTLS" );
|
|
}
|
|
|
|
SKIP: {
|
|
skip "No SMTP server without TLS defined", 2 unless $host_tcp_smtp_notls;
|
|
$res = NPTest->testCmd( "./check_smtp -H $host_tcp_smtp_notls -p 25 -S" );
|
|
is ($res->return_code, 1, "OK, got warning from server without TLS");
|
|
is ($res->output, "WARNING - TLS not supported by server", "Right error message" );
|
|
}
|
|
|
|
$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" );
|
|
|