complete-run: eliminate dependency on EV

This commit is contained in:
Michael Stapelberg 2011-10-05 23:52:19 +01:00
parent 27a38a3917
commit 1056ecc885
1 changed files with 5 additions and 5 deletions

View File

@ -27,16 +27,18 @@ use TAP::Parser::Aggregator;
use lib qw(lib);
use SocketActivation;
# the following modules are not shipped with Perl
use EV;
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::I3 qw(:all);
use X11::XCB;
# Install a dummy CHLD handler to overwrite the CHLD handler of AnyEvent / EV.
# We actually use AnyEvent to make sure it loads an event loop implementation.
# Afterwards, we overwrite SIGCHLD:
my $cv = AnyEvent->condvar;
# Install a dummy CHLD handler to overwrite the CHLD handler of AnyEvent.
# AnyEvents handler wait()s for every child which conflicts with TAP (TAP
# needs to get the exit status to determine if a test is successful).
# XXX: we could maybe also use a different loop than the default loop in EV?
$SIG{CHLD} = sub {
};
@ -103,8 +105,6 @@ my $harness = TAP::Harness->new({ });
my $aggregator = TAP::Parser::Aggregator->new();
$aggregator->start();
my $cv = AnyEvent->condvar;
# We start tests concurrently: For each display, one test gets started. Every
# test starts another test after completing.
take_job($_) for @wdisplays;