From 069c5a68355f4fcd0c92039490b45e4f150d45f4 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Wed, 8 Sep 2004 21:53:29 +0000
Subject: [PATCH] Apparently diag() doesn't do what I thought it did!

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@315 958fd67b-6ff1-0310-b445-bb7760255be9
---
 t/Test/Qpsmtpd.pm        | 2 +-
 t/Test/Qpsmtpd/Plugin.pm | 2 +-
 t/plugin_tests/dnsbl     | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/t/Test/Qpsmtpd.pm b/t/Test/Qpsmtpd.pm
index 2458b4b..231db61 100644
--- a/t/Test/Qpsmtpd.pm
+++ b/t/Test/Qpsmtpd.pm
@@ -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
diff --git a/t/Test/Qpsmtpd/Plugin.pm b/t/Test/Qpsmtpd/Plugin.pm
index 396e895..e079041 100644
--- a/t/Test/Qpsmtpd/Plugin.pm
+++ b/t/Test/Qpsmtpd/Plugin.pm
@@ -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();
     }
diff --git a/t/plugin_tests/dnsbl b/t/plugin_tests/dnsbl
index 987893e..c2062c1 100644
--- a/t/plugin_tests/dnsbl
+++ b/t/plugin_tests/dnsbl
@@ -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");
 }