skip the inf loop test on platforms with no SIGALRM
Brandon L Black [Fri, 10 Nov 2006 00:05:00 +0000 (00:05 +0000)]
t/011_infinite_loop.t

index 7589981..b291015 100644 (file)
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More;
+use Algorithm::C3; # we already did use_ok 10 times by now..
 
-BEGIN {
-    use_ok('Algorithm::C3');
-}
+plan skip_all => "Your system has no SIGALRM" if !exists $SIG{ALRM};
+plan tests => 5;
 
 =pod
 
@@ -109,5 +109,4 @@ foreach my $loopy (@loopies) {
     else {
         ok(0, "Infinite loop apparently succeeded???");
     }
-    
 }