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

tests: Eliminate IO::Scalar

Browse Source
This commit is contained in:
Michael Stapelberg 2011-10-05 23:17:09 +01:00
parent b9cd9132d0
commit 689f3b8cf7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
testcases/complete-run.pl
View File

@ -31,7 +31,6 @@ use EV;
use AnyEvent; use AnyEvent;
use AnyEvent::Handle; use AnyEvent::Handle;
use AnyEvent::I3 qw(:all); use AnyEvent::I3 qw(:all);
use IO::Scalar; # not in core :\
use Try::Tiny; # not in core use Try::Tiny; # not in core
use X11::XCB; use X11::XCB;
@ -187,9 +186,10 @@ sub take_job {
say "[$display] Running $test with logfile $logpath"; say "[$display] Running $test with logfile $logpath";
my $output; my $output;
open(my $spool, '>', \$output);
my $parser = TAP::Parser->new({ my $parser = TAP::Parser->new({
exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" /usr/bin/perl -Ilib $test| ], exec => [ 'sh', '-c', qq|DISPLAY=$display LOGPATH="$logpath" /usr/bin/perl -Ilib $test| ],
spool => IO::Scalar->new(\$output), spool => $spool,
merge => 1, merge => 1,
}); });