mirror of
https://github.com/xcat2/xcat-core.git
synced 2026-10-21 15:18:19 +00:00
Vinícius Ferrão
49 lines
1.1 KiB
Perl
49 lines
1.1 KiB
Perl
package XCAT::Test::Process;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Capture::Tiny qw(capture_merged);
|
|
use Exporter qw(import);
|
|
|
|
our @EXPORT_OK = qw(run_command);
|
|
|
|
sub run_command {
|
|
my (@command) = @_;
|
|
die "Command is required\n" unless @command;
|
|
die "run_command must be called in list context\n" unless wantarray;
|
|
|
|
my $error;
|
|
my ( $output, $status ) = capture_merged {
|
|
my $result = system { $command[0] } @command;
|
|
$error = "$!" if $result == -1;
|
|
return $result;
|
|
};
|
|
|
|
die "Unable to execute @command: $error\n" if $status == -1;
|
|
die "Command @command terminated by signal " . ( $status & 127 ) . "\n"
|
|
if $status & 127;
|
|
return ( $status >> 8, $output );
|
|
}
|
|
|
|
1;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
XCAT::Test::Process - command execution for source-tree tests
|
|
|
|
=head1 FUNCTIONS
|
|
|
|
=head2 run_command
|
|
|
|
Runs a literal argument list and returns the normal exit code and combined
|
|
stdout/stderr output. Requires list context. Execution failures and signal
|
|
termination raise errors.
|
|
|
|
Inherits the caller's environment and directory. Capture::Tiny applies the
|
|
caller's STDOUT PerlIO layers; use raw STDOUT for byte comparisons.
|
|
|
|
=cut
|