byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Silence misc.t STDOUT by testing for it.

Browse Source
This commit is contained in:
Jonathan Hall 2014-09-10 08:55:17 -05:00
parent ac98894d8e
commit 11f47cb2ab
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
t/misc.t
View File

@ -1,4 +1,5 @@
use Test::More tests => 12;
use Test::More tests => 14;
use Test::Output;
use strict;
use lib 't';
use_ok('Test::Qpsmtpd');
@ -6,10 +7,21 @@ use_ok('Test::Qpsmtpd');
ok(my ($smtpd, $conn) = Test::Qpsmtpd->new_conn(), "get new connection");
# fault method
is(($smtpd->fault)->[0], 451, 'fault returns 451');
is(($smtpd->fault("test message"))->[1],
"Internal error - try again later - test message",
'returns the input message');
{
my $fault;
stderr_like { $fault = $smtpd->fault }
qr/program fault - command not performed \(No such file or directory\)/,
'fault outputs proper warning to STDOUT';
is($fault->[0], 451, 'fault returns 451');
};
{
my $fault;
stderr_like { $fault = $smtpd->fault('test message') }
qr/test message \(No such file or directory\)/,
'fault outputs proper custom warning to STDOUT';
is($fault->[1], 'Internal error - try again later - test message',
'returns the input message');
};
# vrfy command
is(($smtpd->command('VRFY <foo@bar>'))[0], 252, 'VRFY command');