updated fault test in qpsmtpd-smtp.t

This commit is contained in:
Matt Simerson 2014-09-11 10:53:09 -07:00
parent e7a4ca2b08
commit 847db53e0d

View File

@ -33,12 +33,12 @@ sub __fault {
my $fault;
stderr_like { $fault = $smtpd->fault }
qr/program fault - command not performed \(/,
qr/program fault - command not performed.*Last system error:/ms,
'fault outputs proper warning to STDOUT';
is($fault->[0], 451, 'fault returns 451');
stderr_like { $fault = $smtpd->fault('test message') }
qr/test message \(/,
qr/test message.*Last system error/ms,
'fault outputs proper custom warning to STDOUT';
is($fault->[1], 'Internal error - try again later - test message',
'returns the input message');