Silence a noisy test by passing an expected data type.

This commit is contained in:
Jonathan Hall 2014-09-17 21:08:34 -05:00
parent 26b1d0bb62
commit 555c87c52f

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]);