h3xx
/
simplify_static_dir
mirror of https://codeberg.org/h3xx/simplify_static_dir
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

CI: Improve method of capturing output

This commit is contained in:
Dan Church 2023-07-20 15:37:17 -05:00
parent d13f8ff83c
commit 76da187807
Signed by: h3xx
GPG Key ID: EA2BF379CD2CDBD0
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
t/TestFunctions.pm
View File

@ -12,6 +12,8 @@ use File::Basename qw/
dirname
/;
require File::Temp;
use IPC::Open3 qw/ open3 /;
use Symbol qw/ gensym /;
use Exporter;
use parent 'Exporter';
@ -102,7 +104,6 @@ sub run_script_capture {
my @args = @_;
my @cmd = (SCRIPT, @args);
use IPC::Open3 qw/ open3 /;
my $stderr = File::Temp->new(
TMPDIR => 1,
CLEANUP => 1,
@ -112,20 +113,20 @@ sub run_script_capture {
CLEANUP => 1,
);
my $in = '';
local *CATCHOUT = $stdout;
local *CATCHERR = $stderr;
my $child_out = gensym();
my $child_err = gensym();
print STDERR "+ @cmd\n";
my $pid = open3 $in, '>&CATCHOUT', '>&CATCHERR', @cmd;
my $pid = open3 $in, $child_out, $child_err, @cmd;
waitpid $pid, 0;
foreach my $handle (\*CATCHOUT, \*CATCHERR) {
foreach my $handle ($child_out, $child_err) {
seek $handle, 0, 0;
}
local $/;
return (
$?,
scalar <CATCHOUT>, # slurp!
scalar <CATCHERR>, # slurp!
scalar <$child_out>, # slurp!
scalar <$child_err>, # slurp!
);
}