updated fault test in qpsmtpd-smtp.t
This commit is contained in:
parent
e7a4ca2b08
commit
847db53e0d
@ -33,12 +33,12 @@ sub __fault {
|
|||||||
|
|
||||||
my $fault;
|
my $fault;
|
||||||
stderr_like { $fault = $smtpd->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';
|
'fault outputs proper warning to STDOUT';
|
||||||
is($fault->[0], 451, 'fault returns 451');
|
is($fault->[0], 451, 'fault returns 451');
|
||||||
|
|
||||||
stderr_like { $fault = $smtpd->fault('test message') }
|
stderr_like { $fault = $smtpd->fault('test message') }
|
||||||
qr/test message \(/,
|
qr/test message.*Last system error/ms,
|
||||||
'fault outputs proper custom warning to STDOUT';
|
'fault outputs proper custom warning to STDOUT';
|
||||||
is($fault->[1], 'Internal error - try again later - test message',
|
is($fault->[1], 'Internal error - try again later - test message',
|
||||||
'returns the input message');
|
'returns the input message');
|
||||||
|
Loading…
Reference in New Issue
Block a user