Permalink
Browse files

Work around a consistent timeout issue in Hinrik's POE::Wheel::Run test.

There is a mysterious 5sec delay when starting processes on some
Windows machines.  The consistent, roundish number of seconds makes me
suspect something environmental, like an antivirus program, but that's
just a wild guess.

Thanks to ultramantis on irc.perl.org #poe or letting me access their
machine with teamviewer.  I couldn't reproduce the problem on my own
systems, so it was vital to see it failing somewhere.
  • Loading branch information...
1 parent 054da73 commit d78e3d2fdcd999375fbb496fd206e64c649ebe55 @rcaputo committed Jan 25, 2012
Showing with 6 additions and 1 deletion.
  1. +6 −1 t/90_regression/hinrik-wheel-run-die.t
@@ -17,11 +17,16 @@ POE::Kernel->run;
sub _start {
my ($kernel, $heap) = @_[KERNEL, HEAP];
- $kernel->delay('timeout', 5);
$heap->{quickie} = WheelWrapper->new(
Program => sub { die },
ExitEvent => 'exit',
);
+
+ # The delay goes after creating WheelWrapper. Starting a process
+ # takes a little over 5sec on some Windows systems, and I don't know
+ # why. This pretty much guarantees the timeout occurs.
+
+ $kernel->delay('timeout', 5);
}
sub exit {

0 comments on commit d78e3d2

Please sign in to comment.