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 $level = Qpsmtpd::TRACE_LEVEL();
$level = $self->init_logger unless defined $level;
diag(join(" ", $$, @log)) if $trace <= $level;
print("# " . join(" ", $$, @log) . "\n") if $trace <= $level;
}
# sub run

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

@ -33,7 +33,7 @@ sub run_tests {
my ($plugin, $qp) = @_;
foreach my $t (@{$plugin->{_tests}}) {
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;
$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');
is($ret, DENY, "Check we got a DENY");
diag("dnsbl result: $note");
print("# dnsbl result: $note\n");
}