Changeset 21804 for util

Timestamp:

08/06/08 13:27:40 (4 months ago)

Author:

audreyt

Message:

* Add proper Time::Out (60sec for now) around tests.

Thanks to masak++ for pointing out that one hanging test
sometimes makes all others hanging because of the reuse of a FH
pipe that was never closed.

Files:

• util/yaml_harness.pl (modified) (1 diff)

util/yaml_harness.pl

@@ -279 +279 @@
     my $kid  = $self->{_child_num} ? "[$self->{_child_num}] " : "";
     warn "$kid$test\n";
-    my $t = timeit( 1, sub {
-        use Time::HiRes;
-        use Time::Out 'timeout';
-        timeout 300 => sub { $self->SUPER::run_test($test, @rest) };
-    } );
+    my $t = timeit( 1, sub { $self->SUPER::run_test($test, @rest) } );
     warn "    ".timestr($t)."\n";
 }
 
+sub analyze_fh {
+    my($self, $name, $fh) = @_;
+
+    my $it = Test::Harness::Iterator->new($fh);
+
+    use Time::HiRes;
+    use Time::Out 'timeout';
+    my $results = Test::Harness::Results->new;
+    timeout 10 => sub { $results = $self->_analyze_iterator($name, $it) };
+    return $results;
+}
 
 __END__