Net::Ping: avoid stderr noise in tests

Send status info to STDOUT rather than STDERR.

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 3c0c0ab..f4ed345 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -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 ),
         ],
 
     },

diff --git a/dist/Net-Ping/t/000_load.t b/dist/Net-Ping/t/000_load.t
index 3cb518d..87f55d9 100644 (file)
--- a/dist/Net-Ping/t/000_load.t
+++ b/dist/Net-Ping/t/000_load.t
@@ -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" );
 

diff --git a/dist/Net-Ping/t/001_new.t b/dist/Net-Ping/t/001_new.t
index 3cf1fee..dba9553 100644 (file)
--- a/dist/Net-Ping/t/001_new.t
+++ b/dist/Net-Ping/t/001_new.t
@@ -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");

diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index db4d1bf..35b0db1 100644 (file)
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -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