tests: recommend running create-certs.pl with $^X

[public-inbox.git] / t / nntpd-validate.t

diff --git a/t/nntpd-validate.t b/t/nntpd-validate.t
index 1a325105cb5a7f789cf5a6d5068f860c0a9b72fc..87829b03e4dfa2461427f014059acdf7662bf92e 100644 (file)
--- a/t/nntpd-validate.t
+++ b/t/nntpd-validate.t
@@ -32,7 +32,7 @@ my $test_tls = $ENV{TEST_SKIP_TLS} ? 0 : eval { require IO::Socket::SSL };
 my $cert = 'certs/server-cert.pem';
 my $key = 'certs/server-key.pem';
 if ($test_tls && !-r $key || !-r $cert) {
-       plan skip_all => "certs/ missing for $0, run ./certs/create-certs.perl";
+       plan skip_all => "certs/ missing for $0, run $^X ./certs/create-certs.perl";
 }
 require './t/common.perl';
 my $keep_tmp = !!$ENV{TEST_KEEP_TMP};
@@ -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 = ([]);