Merge pull request #120 from smtpd/test_warning

Silence a noisy test by passing an expected data type.
This commit is contained in:
Matt Simerson 2014-09-17 19:35:26 -07:00
commit 28e95be488

View File

@ -109,11 +109,11 @@ sub __run_continuation {
} }
sub __hook_responder { sub __hook_responder {
my ($code, $msg) = $qp->hook_responder('test-hook', ['test code','test mesg']); my ($code, $msg) = $qp->hook_responder('test-hook', [OK,'test mesg']);
is($code, 'test code', "hook_responder, code"); is($code, OK, "hook_responder, code");
is($msg, 'test mesg', "hook_responder, test msg"); 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"); is($code->[0], 220, "hook_responder, code");
ok($code->[1] =~ /ESMTP qpsmtpd/, "hook_responder, message: ". $code->[1]); ok($code->[1] =~ /ESMTP qpsmtpd/, "hook_responder, message: ". $code->[1]);