about summary refs log tree commit homepage
path: root/t/nntpd-validate.t
diff options
context:
space:
mode:
Diffstat (limited to 't/nntpd-validate.t')
-rw-r--r--t/nntpd-validate.t8
1 files changed, 7 insertions, 1 deletions
diff --git a/t/nntpd-validate.t b/t/nntpd-validate.t
index 1a325105..532ef729 100644
--- a/t/nntpd-validate.t
+++ b/t/nntpd-validate.t
@@ -112,11 +112,17 @@ sub do_get_all {
                         }
                 }
         }
+
+        # hacky bytes_read thing added to Net::NNTP for testing:
+        my $bytes_read = '';
+        if ($nntp->can('bytes_read')) {
+                $bytes_read .= ' '.$nntp->bytes_read.'b';
+        }
         my $q = $nntp->quit;
         print STDERR "# quit failed: ".$nntp->code."\n" if !$q;
         my $elapsed = sprintf('%0.3f', clock_gettime(CLOCK_MONOTONIC) - $t0);
         my $res = $dig->hexdigest;
-        print STDERR "# $desc - $res (${elapsed}s)\n";
+        print STDERR "# $desc - $res (${elapsed}s)$bytes_read\n";
         $res;
 }
 my @tests = ([]);