This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Net::Ping: avoid stderr noise in tests
authorDavid Mitchell <davem@iabyn.com>
Wed, 26 Oct 2016 10:58:18 +0000 (11:58 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 26 Oct 2016 11:07:36 +0000 (12:07 +0100)
Send status info to STDOUT rather than STDERR.

Porting/Maintainers.pl
dist/Net-Ping/t/000_load.t
dist/Net-Ping/t/001_new.t
t/porting/customized.dat

index 3c0c0ab..f4ed345 100755 (executable)
@@ -895,7 +895,7 @@ use File::Glob qw(:case);
             qw(t/601_pod-coverage.t),
         ],
         'CUSTOMIZED'   => [
-            qw( t/001_new.t t/010_pingecho.t ),
+            qw( t/000_load.t t/001_new.t t/010_pingecho.t ),
         ],
 
     },
index 3cb518d..87f55d9 100644 (file)
@@ -12,5 +12,5 @@ BEGIN {
     use_ok( 'Net::Ping' )   || print "No Net::Ping!\n";
 }
 
-diag( "Testing Net::Ping $Net::Ping::VERSION, Perl $], $^X" );
+note( "Testing Net::Ping $Net::Ping::VERSION, Perl $], $^X" );
 
index 3cf1fee..dba9553 100644 (file)
@@ -51,7 +51,7 @@ like($@, qr/Data for ping must be from/, "new() errors for invalid data size");
 
 # force failures for tcp
 SKIP: {
-    diag "Checking icmp";
+    note "Checking icmp";
     eval { $p = Net::Ping->new('icmp'); };
     if($> and $^O ne 'VMS' and $^O ne 'cygwin') {
         like($@, qr/icmp ping requires root privilege/, "Need root for icmp");
index db4d1bf..35b0db1 100644 (file)
@@ -44,7 +44,8 @@ Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 198ea6c6c584f5ea79a0fd7e9d41
 Math::Complex cpan/Math-Complex/t/Complex.t 4f307ed6fc59f1e5fb0e6b11103fc631b6bdb335
 Math::Complex cpan/Math-Complex/t/Trig.t 2682526e23a161d54732c2a66393fe4a234d1865
 Memoize cpan/Memoize/Memoize.pm 902092ff91cdec9c7b4bd06202eb179e1ce26ca2
-Net::Ping dist/Net-Ping/t/001_new.t 521264cd85cfa06ecaa29ae28cdd7728d58da6f1
+Net::Ping dist/Net-Ping/t/000_load.t deff5dc2ca54dae28cb19d3631427db127279ac2
+Net::Ping dist/Net-Ping/t/001_new.t 3d4acbcbc6372b5f6ccdad672f25a88e5a75bc69
 Net::Ping dist/Net-Ping/t/010_pingecho.t 2e7340ee0e9f6119b889016fc8b89e6bcd4a8fe2
 Pod::Checker cpan/Pod-Checker/t/pod/contains_bad_pod.xr 73538fd80dfe6e19ad561fe034009b44460208f6
 Pod::Checker cpan/Pod-Checker/t/pod/selfcheck.t 8ce3cfd38e4b9bcf5bc7fe7f2a14195e49aed7d8