byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Apparently diag() doesn't do what I thought it did!

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@315 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2004-09-08 21:53:29 +00:00
parent d811d6dbdd
commit 069c5a6835
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
t/Test/Qpsmtpd.pm
View File

@ -78,7 +78,7 @@ sub log {
my ($self, $trace, @log) = @_; my ($self, $trace, @log) = @_;
my $level = Qpsmtpd::TRACE_LEVEL(); my $level = Qpsmtpd::TRACE_LEVEL();
$level = $self->init_logger unless defined $level; $level = $self->init_logger unless defined $level;
diag(join(" ", $$, @log)) if $trace <= $level; print("# " . join(" ", $$, @log) . "\n") if $trace <= $level;
} }
# sub run # sub run

2
t/Test/Qpsmtpd/Plugin.pm
View File

@ -33,7 +33,7 @@ sub run_tests {
my ($plugin, $qp) = @_; my ($plugin, $qp) = @_;
foreach my $t (@{$plugin->{_tests}}) { foreach my $t (@{$plugin->{_tests}}) {
my $method = $t->{name}; my $method = $t->{name};
diag "Running $method tests for plugin " . $plugin->plugin_name; print "# Running $method tests for plugin " . $plugin->plugin_name . "\n";
local $plugin->{_qp} = $qp; local $plugin->{_qp} = $qp;
$plugin->$method(); $plugin->$method();
} }

2
t/plugin_tests/dnsbl
View File

@ -21,5 +21,5 @@ sub test_returnval {
my ($ret, $note) = $self->rcpt_handler($self->qp->transaction, 'rcpt@example.com'); my ($ret, $note) = $self->rcpt_handler($self->qp->transaction, 'rcpt@example.com');
is($ret, DENY, "Check we got a DENY"); is($ret, DENY, "Check we got a DENY");
diag("dnsbl result: $note"); print("# dnsbl result: $note\n");
} }