applications/i3
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

complete-run: eliminate dependency on EV

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
testcases/complete-run.pl
View File

@ -27,16 +27,18 @@ use TAP::Parser::Aggregator;
use lib qw(lib); use lib qw(lib);
use SocketActivation; use SocketActivation;
# the following modules are not shipped with Perl # the following modules are not shipped with Perl
use EV;
use AnyEvent; use AnyEvent;
use AnyEvent::Handle; use AnyEvent::Handle;
use AnyEvent::I3 qw(:all); use AnyEvent::I3 qw(:all);
use X11::XCB; 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.
# AnyEvent’s handler wait()s for every child which conflicts with TAP (TAP # AnyEvent’s handler wait()s for every child which conflicts with TAP (TAP
# needs to get the exit status to determine if a test is successful). # 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 { $SIG{CHLD} = sub {
}; };
@ -103,8 +105,6 @@ my $harness = TAP::Harness->new({ });
my $aggregator = TAP::Parser::Aggregator->new(); my $aggregator = TAP::Parser::Aggregator->new();
$aggregator->start(); $aggregator->start();
my $cv = AnyEvent->condvar;
# We start tests concurrently: For each display, one test gets started. Every # We start tests concurrently: For each display, one test gets started. Every
# test starts another test after completing. # test starts another test after completing.
take_job($_) for @wdisplays; take_job($_) for @wdisplays;