[Rt-commit] r5511 - in Test-Chimps: trunk/lib/Test/Chimps/Client

[zev at bestpractical.com]

Author: zev
Date: Mon Jul  3 18:23:29 2006
New Revision: 5511

Modified:
   Test-Chimps/   (props changed)
   Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm

Log:
 r9803 at galvatron:  zev | 2006-07-03 17:04:00 -0400
 applied timeout patch


Modified: Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Client/Poller.pm	Mon Jul  3 18:23:29 2006
@@ -149,11 +149,20 @@
 
         $self->_checkout_project($config->{$project}, $revision);
 
+        local $SIG{ALRM} = sub { die "10 minute timeout exceeded" };
+        alarm 600;
         print "running tests for $project\n";
         my $start_time = time;
-        my $model = Test::TAP::Model::Visual->new_with_tests(glob("t/*.t t/*/t/*.t"));
+        my $model;
+        eval {
+          $model = Test::TAP::Model::Visual->new_with_tests(glob("t/*.t t/*/t/*.t"));
+        };
         my $duration = time - $start_time;
 
+        if ($@) {
+          print "Tests aborted: $@\n";
+        }
+
         $self->_unroll_env_stack;
         
         foreach my $libdir (@{$self->_added_to_inc}) {