X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fnntpd-validate.t;h=532ef7293320a1e86412944f31d92e2cb98d45f0;hb=a3c054cbbf2a51be121b3237c5d223acc5c8a2f4;hp=1a325105cb5a7f789cf5a6d5068f860c0a9b72fc;hpb=77c66b4cdb1d52321ed3cb6352fe0b72312cbb71;p=public-inbox.git 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 = ([]);