mirror of
https://git.proxmox.com/git/pve-installer
synced 2025-04-28 10:32:12 +00:00
7a95f3873f
Previously, the I/O loop would continue endlessly until the subprocess exited. This explicit handling allows run_command() to be used with e.g. alarm(). Signed-off-by: Christoph Heiss <c.heiss@proxmox.com>
47 lines
1.1 KiB
Perl
Executable File
47 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use File::Temp;
|
|
use Test::More;
|
|
|
|
use Proxmox::Sys::Command qw(run_command CMD_FINISHED);
|
|
use Proxmox::Sys::File qw(file_read_all);
|
|
use Proxmox::UI;
|
|
|
|
my $log_file = File::Temp->new();
|
|
Proxmox::Log::init($log_file->filename);
|
|
|
|
Proxmox::UI::init_stdio();
|
|
|
|
is(run_command('echo test'), "test\n", 'basic usage');
|
|
|
|
is(run_command('echo test', undef, undef, 1), 0, 'system()-mode');
|
|
|
|
my $ret = run_command('bash -c "echo test; sleep 1000; echo test"', sub {
|
|
my $line = shift;
|
|
is($line, 'test', 'using CMD_FINISHED - produced correct log line');
|
|
|
|
return CMD_FINISHED;
|
|
});
|
|
is($ret, '', 'using CMD_FINISHED');
|
|
|
|
# https://bugzilla.proxmox.com/show_bug.cgi?id=4872
|
|
my $prev;
|
|
eval {
|
|
local $SIG{ALRM} = sub { die "timed out!\n" };
|
|
$prev = alarm(1);
|
|
$ret = run_command('sleep 5');
|
|
};
|
|
alarm($prev);
|
|
|
|
is($@, "timed out!\n", 'SIGALRM interaction');
|
|
|
|
# Check the log for errors/warnings
|
|
my $log = file_read_all($log_file->filename);
|
|
ok($log !~ m/(WARN|ERROR): /, 'no warnings or errors logged');
|
|
print $log if $log =~ m/(WARN|ERROR): /;
|
|
|
|
done_testing();
|