Test::Timer is now possible to SKIP

xsawyerx · Apr 26, 2009 · bc8c564 · bc8c564
1 parent c968355
commit bc8c564
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/Build.PL b/Build.PL
@@ -9,7 +9,6 @@ my $builder = Module::Build->new(
     dist_version_from   => 'lib/Test/Ping.pm',
     build_requires => {
         'Test::More'  => 0,
-        'Test::Timer' => 0.05,
     },
     requires => {
         'Net::Ping'     => 2.33,

diff --git a/Changes b/Changes
@@ -3,7 +3,7 @@ Revision history for Test-Ping
 0.07
         rewrote t/06-alarm.t
         rewrote Test::Ping::Ties::TIMEOUT, Test::Ping::Ties::TIMEOUT
-
+        added Test::Timer as possible skip for testing of t/06-alarm.t
 
 0.06    26.04.09
         moved t/05-udp_tcp_inst.t to t/05-udp_tcp_stream_syn_inst.t

diff --git a/t/06-alarm.t b/t/06-alarm.t
@@ -19,9 +19,10 @@ use English '-no_match_vars';
 
 SKIP: {
     my $debug_vars = "$OSNAME $EXECUTABLE_NAME $]";
-    eval 'require Socket'          || skip 'No Socket',                    6;
-    eval { alarm 0; 1; }           || skip "alarm borks on $debug_vars ?", 6;
-    getservbyname( 'echo', 'tcp' ) || skip 'No echo port',                 6;
+    eval 'require Socket'          || skip 'No Socket',                    2;
+    eval { alarm 0; 1; }           || skip "alarm borks on $debug_vars ?", 2;
+    eval 'require Test::Timer'     || skip 'No Test::Timer',               2;
+    getservbyname( 'echo', 'tcp' ) || skip 'No echo port',                 2;
 
     my $test = sub { Test::Ping->_ping_object()->ping('1.1.1.1') };