Merge pull request #120 from smtpd/test_warning
Silence a noisy test by passing an expected data type.
This commit is contained in:
commit
28e95be488
@ -109,11 +109,11 @@ sub __run_continuation {
|
||||
}
|
||||
|
||||
sub __hook_responder {
|
||||
my ($code, $msg) = $qp->hook_responder('test-hook', ['test code','test mesg']);
|
||||
is($code, 'test code', "hook_responder, code");
|
||||
my ($code, $msg) = $qp->hook_responder('test-hook', [OK,'test mesg']);
|
||||
is($code, OK, "hook_responder, code");
|
||||
is($msg, 'test mesg', "hook_responder, test msg");
|
||||
|
||||
($code, $msg) = $smtpd->hook_responder('connect', ['test code','test mesg']);
|
||||
($code, $msg) = $smtpd->hook_responder('connect', [OK,'test mesg']);
|
||||
is($code->[0], 220, "hook_responder, code");
|
||||
ok($code->[1] =~ /ESMTP qpsmtpd/, "hook_responder, message: ". $code->[1]);
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user